HOOSIEfi USERS GROUP 
USERS GROUP HOOSIER 
6R0UP HOOSIER USERS 
HOOSIER USERS GROUP 
USERS GROUP HOOSIER 
GROUP HOOSIER USERS 
HOOSIER USERS GROUP 
USERS GROUP HGOSIEi! 
GROUP HOOSIER USERS 



HOOSIER USERS GROUP HOOSIER USERS GROUP HOOSIER USERS GROUP 
USERS GROUP KOOSlEii USEiiS GROUP HOOSIER USERS GROUP HOOSIER 

THE HUGgers 
HOOSIER USERS GROUP 
People Helping People 

USERS GROUP HOOSIER USERS GROUP HOOSIER USERS GROUP HOOSIER 
GROUP HOOSIER USERS GROUP HflOSlES USEfiS GROUP HOOSIER USERS 



HOOSIER USERS GROUP 
USEfiS GROUP HCOSIER 
GROUP HOOSIER [JSERS 
HOOSIER USERS GROUP 
USERS GROUP HOOSIER 
GROUP HOOSIEJ? USERS 
HOOSIER USERS GROUP 
USERS GROUP HOOSIER 
GROUP HOOSIER USEHS 
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! TI-WRITER TUTORIAL : 

! By Tom Kennedy ! 



Now I want to cover the Text Formatter, which prints out the document. 
Most importantly, the special symbols, called Format Commands, that the 
formatter uses to alter the print-out of the document, which are Installed 
the Text Editor. 



In 



In other words, you put these 
as the formatter comes across 
actually print the symbols. 



commands into the text when you write it and 
them it changes the text accordingly but doesn't 



There are six groups of formatter 
similar manner. All commands must 
with a period. 



commands that are all applied in a 
be in caps and must be on a line that 



starts 



******************* 
Text Dimension 

the document (margl 
.FX : FILL : 
.NF : NO FILL : 
.AD : ADJUST : 
.NA : NO ADJUST: 
.LM n : LF MARGIN: 
.RM n : RT MARGIN: 
.IN n : INDENT : 
.LS n : LINE SP : 
.PL n : PG LENGTH: 
.BP : BEGIN PG : 



************************************************************ 
commands, as the name implies, move or shape the words in 

ns, linespaclng, right justify, etc.) 
PUTS AS MANY WORDS ON A LINE AS WILL FIT. 
CANCELS FILL. 

ALIGNS THE TEXT TO THE LEFT AND RIGHT MARGINS. <RT. JUSTIFY 

CANCELS ADJUST. 

SETS LEFT MARGIN TO "n". 

SETS RIGHT MARGIN TO "n". 

CREATES AN AUTO-INDENT FROM LEFT MARGIN. 

SETS LINE SPACING TO "n" LINES. 

DEFINES NUMBER OF LINES TO A PAGE. 

DEFINES FIRST LINE OF NEW PAGE. 



Internal Format commands control the spacing of characters on a line. 
.SPn : SPACE : SIMILAR TO THE TAB FUNCTION. 
.CE n : CENTER : CENTERS NEXT "n" LINES BETWEEN MARGINS. 



High 
allow you 



& 

§ : 

.TL XX : 

.CO t : 



lighting c 
to redefl 
REQUIRED : 
SPACE : 
UNDERLINE: 
BOLD 

TRANS- : 
LITERATE : 
COMMENT : 



ommands control functions such as underline or bold and 
ne characters to use them to send CTRL codes to the printer, 
JOINS WORDS TOGETHER WHEN REQUIRED TO PREVENT SPLITTING IN 

REFORMATING, UNDERLINE, ETC. 
(UNDERSCORE) UNDERLINES ALL TEXT FOLLOWING UNTIL NEXT PACE, 
(OVERSTRIKE) RETYPES FOLLOWING TEXT FOUR TIMES. 
ALLOWS REASSIGNMENT OF ONE CHARACTER TO REPRESENT A NUMBER 
OF CHARACTER VALUES TO SEND CODES TO THE PRINTER. 
SIMILAR TO REM IN BASIC— ALLOWS NOTES THAT DONT PRINT. 



Page identification commands print notes in the upper or lower corner of 
each page, either headers or footers 



.HE t 
.FO t 
.PA 



HEADER 
FOOTER 
PAGE # 



PRINTS TEXT <t) AND PAGE NUMBER AT TOP OF EACH PAGE. 
PRINTS TEXT <t) AND PAGE NUMBER AT BOTTOM OF EACH PAGE. 
RESETS PAGE NUMBER IN .HE AND .FO 



File management commands 
.IF f : INCLUDE : MERGES A FILE TO PRINT A DOCUMENT TOO LARGE FOR ONE FILE. 
: FILE 



1 
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Mall Merge option connands are used to supply values to the variables In a 
letter that has been set up for the mall nerge option 
.ML f :MAIL LIST: IDENTIFIES VALUE FILE (f) FOR MAIL LIST. 

*n* :VARIABLE : INSERTED IN TEXT AS VARIABLE FOR ASSIGNMENT FROM VALUE FILE. 
.DP n:t:DISPLAY : PROMPTS YOU USING TEXT "t" TO ASSIGN TO VARIABLE <*n*). 
: PROMPT : 

************************************************************ 

The use of these commands In your text Is what separates the word processor 
from a typewriter. They allow you to get the most out of your printer. 

So, now you've written your document, and Inserted all the format commands, now 
how do you print it out? First, save the document and exit the Text Editor. At 
the title menu, select Text formatter, (make sure the program disk Is In the 
drive) and the screen will blank with the prompt "ENTER INPUT FILENAME". Enter 
the name of the file you Just saved, (ex. DSKl.MYFILE) and hit enter. 

Next, the prompt "ENTER PRINT DEVICENAME" appears after the file Is loaded. If 
you use a serial printer, the device name would be RS232.BA=xxx with xxx being 
the baud rate. If you're using a parallel printer, the device name is PIO. 
Also, you must add either .CR or .LF to the end of the device name. This tells 
Tl-Writer whether you're printer will handle the carriage return or the line 
feed. Check you're printer manual and the Tl-Writer manual in detail to find 
out which you use. 

The next, prompt Is "USE MAILING LIST". If you aren't printing "form letters" 
just hit enter to accept the default of N (NO). 

Next is "WHAT PAGE(S)? <ALL>. If you want to print the whole document, accept 
the default for all pages. Otherwise, you can print any of the pages or groups 
of pages. 

The prompt "NUMBER OF COPIES: 1" tells how many copies of each page are to be 
printed. 

The last prompt is "PAUSE AT END OF PAGE? N". The main purpose of this function 
is If you are using separate sheets of paper it will stop and wait for you to 
align the next sheet. Another use Is to save a little paper. Tl-Wrlter has an 
annoying habit of scrolling one whole blank page up before starting to print, 
which Is not that big of a deal since what's one piece of paper worth 
considering how much you go through normally. But If you're Just running test 
samples of type styles, or the like, you end up with a lot of white paper at 
you're feet. To prevent this, type "Y" and turn off you're printer. Now hit 
enter and turn the printer on, you should see "PRESS ENTER TO CONTINUE" (the 
software thinks one page has been printed). If not, turn the printer on and off 
again. Now you align the paper to the top of the page and hit enter and the 
printing begins. But if it's a long letter, you'll have to sit there and hit 
enter after each page so usually it's better to select the default when using 
continuous feed paper. 

Now, about the Mailing List Option. Let's say you've written a form letter to 
send out to various Individuals, maybe a resume*. You write the letter like 
normal, but when you come to a name or address or something that will change 
with each letter, you put In it's place a variable In the form of *n*, where n 
is a number to identify the order. So Instead of starting off wlth:"Dear Mr. 
Smith" you would have "Dear Mr. ''1*" and so on. when you're all through with 
your letter, save it and purge the memory. Now you must create what is called a 
Value File, which is your mailing list where Tl-Wrlter will draw the variables 
from. A value file consists of a list values to be inserted into the letter, 
listed one to a line, preceded by the number of the variable and ending with a 
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carriage return syabol. Groups of values must be separated by a line with just 
an asterisk and a carriage return. For example: 

1 John Sffilth^'" 

2 123 STREETe»- 

3 Seattle, WA«r 
*Cr 

1 Jane Doecc 

2 456 STREET 

3 Seattle, WAcr 

At the top of your letter you Insert the .ML f command where f equals the 
filename of your value file. After selecting the mailing list option the 
computer will use this command to fill in the variables. If there is no .ML 
command in the letter then when you are prompted for "MAILING LIST NAME:" you 
supply the filename. This allows you to call on a number of files for different 
groups. 

Another way to Insert values Is to use the Define Prompt command. With this 
command you do not Insert a .ML comand calling a value file and Instead you 
Insert lines containing the format: .DP n:t - where n Is the number of the 
variable and t Is the prompt text. Now, when you come to the prompt "USE 
MAILING LIST?" you select "N" for NO and as the document Is printed when a 
variable Is encountered the printing stops and the text you chose appears on 
the screen asking you for the appropriate value. If you don't include a *.DP 
n:t" command In your text, the computer responds with "ENTER DATA FOR VARIABLE 
*n*". and it can get confusing trying to remember which Item you're on. This 
method is handy for letters which you only want to print one copy at different 
times to different people. 

Let me tell you, this is why I bought a computer. I'm sure we all went through 
that period of time before buying a computer when we would ask: "what am I 
going to use a computer for, anyway?". Well I decided there were two things I 
wanted to do: 1> Store files of data (recipes, albums. Etc.) and 2) Use my 
computer as a typewriter. I didn't know about TI-WRITER when I bought the 
99/4A, but now I know that I made the best choice possible. I hope you will all 
find TI-WRITER as easy to use and as powerful as I have. 
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Q: Can TI-WRITER save a file in any -fornat besides D/VBO? 

At Yes, i-f you use the PF command to print a -file, you can insert a 
"F" in -front of the filename, as in: F DSKl.MYFILE. The F will cause 
the file to print in Display/Fi'Xed BO format. 

Q: How do Transliterate commands work? 

A: The Transliterate command is a special type of Format command that 
redefines any ASCII key value to equate to a string of character 
values. This is used to send specific code values to a printer in 
order to activate special fuctions. The format is.... 

".TL xxx:aaa,bb,ccc" 

where xxx is the key to be redefined, and aa,bb,cc, etc are the 
subsequent code values being sent. You will have to check your 
printer manual to see which codes do what. 



THINGS TI NEVER TOLD YOU! 
by Jim Ellis 

While trying to find out why the copyright symbol loses . 
the upper half when Tl-Writer (tn) calls the CHARAl 
program, I found out v/here they hid the definition for 
the cursor. It can be changed to anything that you can 
fit into the 8 by 8 grid that defines letters, numbers, 
sprites, etc. that you can display on the TI screen. 
The cursor is defined by 16 bytes just like the 
definition used in Basic's CALL CHAR statement. You 
supply the 16 bytes that describe what you want your 
cursor to look like. I have mine with my initials. 
This looks similar to the way CR appears on the screen 
when you press ENTER. That makes your copy more 
personal. Now I shall tell you where to change these 
16 bytes to customize your program disk. You must have 
Disk Fixer (tn) or some similar program to do this. 
The figure below is of the 256 bytes that comprise the 
first sector of CHARAl. You can copy the CHARAl file 
to a freshly initiailzed disk, thay way sector hex 22 
or 34 decimal will contain the sector we are interested 
in modifying. The sector appears below wih the symbol 
** in the 16 bytes of interest. 

ADR- 012 3456789AB 



00- 


00 


00 


08 


00 


07 


FA 


00 


20 


00 


00 


18 


24 


oc- 


24 


18 


00 


20 


00 


08 


18 


08 


08 


IC 


00 


20 


18- 


00 


18 


24 


08 


10 


3C 


00 


20 


00 


18 


24 


08 


24- 


24 


18 


00 


20 


00 


14 


14 


IC 


04 


04 


00 


20 


30- 


00 


IC 


10 


18 


04 


18 


00 


20 


00 


03 


10 


38 


3C- 


24 


18 


00 


20 00 


IC 


04 


08 


10 


10 


00 


20 


48- 


00 


18 


24 


18 


24 


18 


00 


20 


00 


18 


24 


IC 


54- 


04 


08 


20 


20 


38 


00 


IC 


10 


IC 


10 


00 


40 


60- 


00 


20 


20 


38 


24 


38 


00 


70 


50 


70 


48 


54 


6C- 


IC 


14 


00 


70 40 


70 


00 


IC 


1-0 


10 


00 


20 


78- 


00 


18 


24 


3C 


20 


IS 


00 


40 


08 


14 


10 


IC 


84- 


10 


10 


00 


40 


'•0 


40 


18 


24 


24 


18 


00 


20 


90- 


20 


20 


28 


08 


08 


08 


00 


40 


40 


58 


24 


08 


9C- 


10 


3C 


00 


40 


40 


58 


24 


08 


24 


18 


00 


40 


A8- 


40 


54 


14 


IC 


04 


04 


00 


40 


40 


5C 


10 


18 


B4- 


04 


18 


00 


40 


40 


48 


10 


38 


24 


18 


00 


40 


CO- 


40 


5C 


04 


08 


10 


10 


00 


40 


40 


58 


24 


18 


CC- 


24 


18 


00 


40 


40 


58 


24 


IC 


04 


08 


00 


40 


D3- 


40 


40 


18 


24 


3C 


24 


00 


40 


40 


50 


10 


IC 


E4- 


14 


IC 


00 


40 


40 


40 


IC 


10 


10 


IC 


00 


40 


FO- 


44 


44 


04 


IC 


14 


IC 


00 


** 


** 


*★ 


** 


** 


FC- 


** 


** 


** 


40 



















You may change the displayed cursor to your choice by 
inputting your ov/n code as per the character definition 
of CALL CHAR located in the TI Basic or Extended Basic 
manuals. Use only the character definition, do not 
include the character number. When you have completed 
making your changes, save the sector back to disk. Now 
you are ready to copy your version of CHARAl back to 
your original disk. The new cursor will appear in both 
the editor mode and the format node of Tl-Writer. (tm) 



UBRARY BITS 

by Dennis Sherry 

Last month I wrote about PROW-CHART on BASIC-il. This 
monthf I will show you how you can use the table printed 
by this proaram with the TRANSLITERATION -feature of 
TI-WRITER. 

The -first thing you need to know isi why do You need 
TRANSLITERATION?. The Quick Re-ference Card which came 
with your TI-WRITER package list ASCII codes 32 to 127. * 
But what about 1 to 31? And how do you get to these 
special characters above 127? This is where 
TRANSLITERATION comes in. 

TRANSLITERATION is merely a long word meaning to change 
one key to another. I-f, while using TI-WRITIER. I type, 
.TL 65-66, this will cause my printer to print a capital B 
(ASCII 66) each time capital A (ASCII 65) is pressed. I 
have simply changed A into B. Obviously* no one would 
want to do this. But what i-f I want to enter the 
ELONGATED character mode on the PROWRITER? Transliteration 
allows me to do this. To select Elongated type, my printer 
requires CHRI(14), or ASCII 14. Lets go back to my original 
example. I-f I enter .TL 65:14, 1 will be telling my printer to 
convert to Elongated type each time capital A is typed. In 
order to get out o-f elongate type, my printer requires 
CHRKIS). 'or ASCII 15. 1 could enter .TL 66:15. This would 
tell my printer to convert to Elongated type when it sees an 
"A", then revert back to the normal type style when it 
encounters a "B". Now, let's get realistic, I need to use "A" 
and "B" frequently, so 1 should select two other keys that are 
not used so o-ften. In my case, I do not use {-(123), }-(i25), 
!-(124), \-(92), or '-(96) o-ften. I could Transliterate 
(change) them to another character. I-f I enter .TL 123:14 and 
.TL 125:15, I will designate { and > to start and stop 
Elongated type. By typing Hoosier {User's} Group, the word 
"User's" would be in Elongated type. Transliteration is more 
power-ful than this example. You can change a single key to 
represent several keys. .TL 124:27,84,51,50 will cause your 
Prowriter to shift to 1-1/2 line spacing when "1" is pressed. 
In this case "!" equals ASCII 27 (Escape), ASCII 84 (select 
custom line spacing), ASCII 51 (3), and ASCII 50 (2). This 
tells your Prowriter to change to line spacing of 32/144 inch. 

To use the Greek characters or the graphic characters you must 
use transliteration to enter the special character mode, such 
as .TL 124:27,35. Then use transliteration to print each 
character you want. 

There are two additional things you need to know to use 
transliteration. First, it only works with the FORMATTER. 
Second, you must put only one TL command on a line, followed by 
a carriage return. 

The PRO-CHART will show you each of the available characters 
and tell you which ASCII number to use with your 
transliterastion commands. 

Experiment and enjoy your printer and computer. 

M 



TI WRITER SPECIAL CHARACTER MODE by Dennis Sherfy 



In the January '86 issue of our newsletter, I wrote an article about 
Transliteration. The companion to Transliteration is the Special Character Mode.. 

I couldn't understand the Special Character Mode from the instruction manual. 
One of the major benefits of user group membership is the help you can receive 
from fellow members. I am merely passing on what I've learned from others. 

You can do many of the same things with either Transliteration or Special 
Character Mode. The logical question is, why have two methods? The answer is 
that there are benefits to each method. You should know both, and use the one 
that is most convenient for each application. 

ADVANTAGES OF TRANSLITERATION: 

-A series of keystrokes can be incorporated into a single keystroke. 
-When you re-use a function several times, Transliteration will save time. 
-You can use special printer characters, such as Greek and mathematical symbols 
which the Prowriter can produce. Probably other printers have similar 
capabilities. I have not been able to access these characters with Special 
Character Mode. 

ADVANTAGES OF SPECIAL CHARACTER MODE: 

-Keys are not tied up when you want to pass instructions to your printer. 

-You may access your printer's printing options from either the Editor or the 

Formatter. 

If you read our January newsletter, you know how to use Transliteration. Here is 
how you use Special Character Mode. 

Special Character Mode is selected by pressing CTRL U. When you want to return 
to regular characters, press CTRL U again. When you enter the Special Character 
Mode, the cursor will change to the underscore character. Special characters 
which can be used in this mode are listed on page 146 of your TI WRITER manual. 
If you want to begin a new page, press CTRL U, SHIFT L, CTRL U. If you want to 
select elongated type on the Prowriter, you use shift out, which is a special 
character. It can be accessed by pressing CTRL U, SHIFT N, CTRL U. Many of my 
printer's features require "escape" plus another key. Escape is a special 
character. If I want to change to elite type, I use "escape" plus "E". Using 
Special Characteer Mode its CTRL U, FCTN R, CTRL U, E. 

There are some commands that require numerical input as well as escape and a 
letter An example is custom line spacing. My Prowriter will print with a line 
space of nnn/i44 inch. If I want 1/2 inch line spaces, I enter 72/144. My 
printer manual tells me to enter "escape" plus "T", plus up to three numbers. I 
obtain 1/2 inch line spaces with CTRL U, FCTN R, CTRL U, T, 7, 2. (Commas are 
used to show separate keystrokes ~ you do not use commas when entering Special 
Character codes) 

Experiment with your printer. Determine which method works best for you. 
Something that I found to be useful 1 was a practice file. I typed several 
instructions with Special Character Mode, and described what result I should 
obtain, such as "This should print in elite type." When I got it to work, I tried 
another command. Finally, I saved my file so I could re-read it later when I 
needed to refresh my memory on how something was done. 

Transliteration AND Special Character Mode can make printing more enjoyable. 
They're both worth learning. 

J" 



TI. Writer; New character set with controA U 
By Dennis Wood 



From the day I started using Tl-Writer I longed -for a 
better character set and an easier way o-f controlling my 
printer's special -functions. The Tl-Writer upgrade gave us 
' ower case characters, but at the expense o-f smaller, harder 
read characters. What was needed was lowercase, but as 
large as possible, consistant with the 6x8 pixel size 
available. Mith this in mind, I designed a new set of upper 
and lower case characters. In order to get decenders for 
the lowercase characters and still retain the uppercase 
size, I merely "shifted the uppercase characters up one 
raster line. Since all 24 lines of text are all shifted up 

by the same amount, there is no difference on the screen. « 

As Tl-Writer loads the CHARAl file the uppercase characters 

shift up one raster line. By doing this I could now define 

lowercase characters with a one line decender. The final 

result is uppercase characters defined in a 5x7 matrix and 

lowercase characters defined in a 5x5 matrix with an 

additional row below for decenders. 

While doing this I had to learn how to read, decipher 
and change the CHARAl file. As a result, I also discovered 
how the ASCII characters from 1 to 31 were defined. For 
example, the little cr at the end of each paragraph is 
represented by the ASCII 13 character. The other characters 
are shown on page 146 of the Tl-Writer manual. After 
reading William Bullock's fine article in the September 1985 
MICROPendium I realized how to get to the objective ^I 
sought. What was needed was a set of characters that woul<^ 
indicate what action was desired of the printer, and a 
Transliteration file that would take that character and 
transliterate it into the desired printer codes- I took the 
'^SCII codes ^rom 1 to 31 and defined a set of characters 
.hat would represent desired printer actions, such as 
Underline or Bold or Italic. To insert these characters in 
a document it is only necessary to type CTRL U followed by a 

specific SHIFT or FCTN and a number or letter. When 
■° Tl-Writer encounters this combination in a t^xt file it 

3 sends that ASCII code to the printer. In order to get the 

ifi printer to execute the desired function, it is necessary to 

^ transliterate that ASCII code into the sequence the 

* particular brand of printer requires. There does not seem 

3 to be a standard set of codes, but most printers seem to be 

^ pretty close. 

^ The following is a description of the special 

characters, the function they represent, what key to strike, 
g and a transliteration file for a C. Itoh Prowriter Jr. 

° Note: Tl-Writer Transliteration software does not pass 

^ certain ASCII codes. These are: 

X) o These keystrokes are preceded by a CTRL U and followed 

by a CTRL U. 



cn 
c c 



c 


XI 


FUNCTION 


CHARACTER 


KEYSTROKE 


TRANSLITERATION 


a. 
a> 

il. 


U1 
(B 
3 


NLQ On 


Large L 


FCTN R 


TL 


27:27, 120, 1 


U'l 


T3 


NLQ Off 


Inverse L 


Shift R 


TL 


18:27, 120,0 




O 
O 


Italic 'On 


Large I 


FCTN T 


TL 


29:27,52 




3 
c 


Italic Off 


Inverse I 


Shift T 


TL 


20:27,53 


u 


c 

X 


Underline On 


Large U 


FCTN U 


TL 


31:27,45, 1 




-J 


Underline Off 


Inverse U 


Shift U 


TL 


21:27,45,0 




>+• 


Superscript On 


Up Arrow 


Shift E 


TL 


5:27,83,0 


>« 


o 


Subscript On 


Down Arrow 


Shift X 


TL 


24:27,83, 1 


u'l 


in 
c 


Either Off 


Inverse Arrow 


Shift D 


TL 


4:27,84 




01 
CK 


Scpi 


Small 08 


Shift Y 


TL 


25: (not Itoh) 




CN 


Pica (10cpi) 


Small 10 


Shift A 


TL 


1:27,80 






Elite (12cpi) 


Small 12 


Shift I 


TL 


9:27,77 



TI Writer, Continued.... 



Londensed On 


Large C 


Shift 


H 


TL 


8: 15 




Condensed Off 


Inverse C 


Shi ft 


K 


TL 


11:18 




Expand On 


Large X 


Shift 


F 


' Vr 


6:27, 


87, 1 


Expand 0++ 


Inverse X 


Shift 


G 


TL 


7:27, 


87,2 


Proportional On 


Large P 


Shift 


P 


TL 


16:27, 


112, 1 


Proportional Off 


Inverse P 


Shift 





TL 


15: 27, 


112,0 


bol d On 


Large B 


Shift 


B 


TL 


2:27, 


71 


oold Off 


Inverse B 


Shift 


V 


TL 


22:27, 


72 


Emphasized On 


J _______ r~ 

Large E 


FCTN Z 


TL 


28:27, 


69 


Emphasized Off 


Inverse E 


Shift 


Z 


TL 


26:27, 


70 


Backspace 


Back Arrow 


Shift 


s 


TL 


19:8 




8 Ipi 


Small L8 


Shift 


2 


TL 


0:27, 


48 


7/72" line space 


Small L9 


Shift 


C 


TI 
1 L- 




A Q 
•tV . 


6 Ipi 


Small L6 


Shift 


Q 


TL 


17:27, 


50 


4 Ipi 


Small L4 


Shift 


W 




23' 27 


65 18 


3 Ipi 


Small L3 


Shift 


N 


TL 


14:27, 


65,24 


Reserved characters are: 












Line Feed 


Small LF 


. Shift 


J 


TL 


10: 




New Page 


Small PA 


Shift 


L 


TL 


12: 




Carriage Return 


Small CR 


Shift 


M 


TL 


13: 




Cursor 


Rectangle 


Shift 


6 


TL 


30: 





A disk with the redefined upper and lowercase 
characters, and the above control characters as well 
instructions and examples for setting up an Include File 
(IF) for transliteration codes is available from the library 
or: 

Dennis Wood 
16709 SE 31st 
Bellevue WA, 98008 
Please send *5 to cover the cost of the disk, 
duplicating, and mailing. 



TI-WRITER has be en enhanced to provide j 
true lower case letters, eliminate the i 
form feed, and provides an RS232 de-fault \ 
while using the Formatter. You will need i 
to add the CHARAl file to your system ! 
diskette and replace the EDITl and ED1T2 
files. For printer de-fault in the 
Formatter, replace the F0W1A1 and F0RMA2 
files to get "RS232.BA=1200 .LF" . For 
"RS232.BA=4800.LF", replace the FORMAl and 
F0WiA2 files with the FORI"1A4800A and 
FORMA4800B ^iles, while Keeping the ^ile 
names FORMAl and F0RMA2 respectively. 



Tl Wrl-ter Alternate Character Sot 
by Erwln von der Ehe 

This ertlcle explains how to make your own character fonts for display on Tl 
Writer. My Interest developed because my dalsy-vheel printer produces non- 
standard characters In place of sans lesser used keyboard characters, whi le Tl 
Writer displayed the character on tt)e keyboard. At printing time I usually had 
sirprlses to edit out of my teDct. The procedure presented here allows 
redefinition of any character normally displayed by Tl Writer. This technique 
can be used for the problem described above or for properly displaying other 
characters printed through the Transliterate coninand of the ForniBtter. 

Requirements; 

1) TI-99/4A, Disk System, Memory Expansion, Tl Writer. 

2) EdItor/A5seiit>ler 

3) DISK0 disk editor, on MATUI6 Disk fi2 

4) Updated Tl-W^Iter Files, MATIUG Disk r71 

5) Grid paper to help define characters - reference CHAR stbprogram In your 
BASIC Reference Manual or a program such as Sprite Maker, MATIUG Disk 494 

Procedure; 

1) Make a back-up copy of your Tl-Wrlter program diskette. Use this backrip for 
all firther activities In ttils <rtlcle. This Is lf«RTANT! 

2) OetBrralne which character CASCII through 127) you want to redefine 

3) Determine Ihe character definition code for the new character. Note: In 
40-oolunn display mode, characters are 8 pixels high by 6 pixels wide. Use the 
left 6 columns of your 8x8 pixel character definition grid for each character, 
but define the character code based on the full 8x8 grid. 

4) Boot OlSKO, using Edltcr/Assenbler option #3, Load and Run. File name - 
DSK1.0ISK0. Progran name - START. 

5) Before we go too much farther, here's how to navigate In DISKO: 



FCTN 



Description 



1 Display sector In I£X 

2 Display sector In ASCII 

3 Refiirn to E/A from menu 

4 Display previous sector 
6 Display fo| lowing sector 

8 Rewrite disk sector to match screen 

9 Return to DISKO menu 
Quit - Go to Title Screeii 

6) After DISKO Is running, put your back-ip Tl-Wlrlter progrem diskette Into 
DSK1. Use Option «, Search for Existing File, to find the start sector of the 
file CHARAl, fhe character definition file. Note the starting sector nuifcer. 
Press <FCTN>9 for menu. 

7) Select Option t\. Disk Sector Editor and select the starting sector of your 
OWA1 file. 

8) You will see the display labelled File Sector 1, shown at the tcp of this 
page. Note In the screens Included with this article, I've Inserted dots (•) 
between the character definition codes for your convenience In locating the 
character code you want to redefine. Also", I "ve added the ASCI I nunber next to 
selected character codas. If you have the 9-sector version of CHARAI, don't 
worry that only 5 sectors are shown here: ttw others only contain O's and serve 
no useful pirpose that t can see. 

9) Use the navigation functions to display the sector you wish to change. Use 
the arrow keys to put the cursor under ttie starting character of the code you 
want to redefine. Be sure to view sectors In ICX mode. 

10) Type In the r»w code. Now Is the time to review this screen to see If this 
Is really what you want. If It Isn't, type over Incorrect code until It's 
right or return to the menu. If the oode Is correct, use <FCIN>8 to Indicate 
your Intention. Answer Y to rewrite the sector. 

11) Boot up Tl-Wrlter using the disk with your revised file and check your 
results. 

Notes; 

1) This procedure also works on the CH»R1 file of OS-WRITER*. 

2) This procedure also works on the CHARAl file of FUM.WITER, MATIUUG Disk 
/112. 

3) Tl-Wrlter can only call CtWAI character file, and It must be on DSK1. You 
may wish to keep several Tl-Wrlter Program Diskettes, each with a different 
customized CHARA1. 

4) Disk Fixer* or another disk sector editor can be used In st«ad of DISKO. 



EJv 
21 Apr 86 



8 



File Sectcrl: ASCII fi 

0000080007FA-0020000018242418' 
• 00200008 1 80806 1 C • 002000 1 82408 
103C'0020001824082418-0020001 4 
1 41C0404'0020001C1 01 8041 8-0020 
000810382418-0020001C04081010' 7 
•0020001 824 1 824 1 8-0020001 824 1C 
0408-20203e001C101C10-00400020 
20382438-0070507O48541C1 4-0070 
4070001C1010-00200018243C2018- 14 
•0040081410101 010-004040401 824 
241 8-0020202028080808 - 00404058 
24081 03C • 00404058240824 1 8 • 0040 
4054141CO4O4-0O40405C10180418- 21 
•004040481 038241 8-00404O5C04O8 
1 01 0-0040405824 1 824 1 8 ^00404058 
241C0408 -00404040 1 8243C24 -0040 
4O50101C141C-O04O4O4O1C10101C- 28 
•004O4444O41C141C-0O707070707O 
7070-0040 
File S©ctcr2: 

4C50101C1010-C000000000000000^ 32 

•0010101010001000-002828280000 

0000^0028X2828X2800^00385430 

1 8543800-00444C1 830644400^0020 

5020544834CO'0008102000000000^ 39 

-0008101010100800-002010101010 

2000-004428X28440000-001010TC 

10100000-0000000000301020-0000 

0O7C00O0OO0O-0O0OO0OO0O303OCO^ 46 

•00O4O8102O4O00O0-003C4C546444 

3800 - 00 1 030 1 1 1 03800 ♦ 00384408 

10207COO-0038441804443800-0008 

1828487C0800-0078407804443800- 53 

•00384O7844443800-007C04O81020 

2000'0038443844443800'00384444 

3CO47800^0OOO3O3O0O3O30OO-0OOO 

3O30OO3O1020-0O0O102O4O2010O0- 60 

•0000007CC07COOOO-OOOOI00804C8 

1000-0038 

File Sector3: 

440810001000-0038445458403COO- 64 
•003844447C444400-007844784444 ■ 
7800-0038444O4O443800 -00784444 
44447800-007C4O784O4O7C00-0O7C 
4O784O4O4O0O-0038444O4C4438O0- 71 
•0044447C44444400-00381 01 01 01 
3800 - 0004040404443800 • 00444850 
7O4844O0-004O4O4O404O7C00 • 0044 
6C5444444400-00446454544C4400- 78 
•007C444444447COO-007844447840 
4000-00384444544C3COO-00784444 
78484400-0038443008443800-OOTC 
101010101000-0044444444443800- 85 
•0044444444281 000 -004444445454 
28GO'0044281010284400-00444428 
1 01 01 000-007C081 020407000-0038 
202020203800-0000402010080400- 92 
•0038080808083800-001 028440000 
0000-0000 
Fl le Sector4: 

000O00007CO0-002O1O08O00OOOOO* 96 
•0000003848483C00^002020382424 
3800-0000CO1C202OlC00^00O4O4 1C 
24241C0O-0000001C28301COO^000C 
103810101000-0000001C241C0438^ 103 
•0020203824242400^001000301010 
3800^0008000808084830-0020Z024 
382824O0^003Ol 01 01 01 03800-0000 
0O785454540O-0OOOOO3e242424OO- 110 
•0000001 82424 1 600 -000000382438 
2a20-0000001C241C0404^00000028 
342O200O-O0OO0O1C3O0C38OO-0O1O 
103810100COO-0000002424241COO- 117 
•0000004428281000-000000445454 
2800-0000002418182400^00000024 
24 1 CO438-0000003C08 1 03C00 -OOOC 
10102010100C-OOI0101000101010^ 124 
•00601 01 0081 01 060^00002054O8O0 
0000^0000 127 
File Sectors: (Ptrtlal) 
OOOOCOCOOOOO-OOOOOOOOOOOOOCOO 
0000000000000000000000000000 
etc. 
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fl HMD9 mim TI-MRITER U3ER3 REFEREM 0UIDE 

SUBMITTED BY BOB STEPHENS 



the following handy TI-WRITER commands are reprinted for the 
June issue of the 99' er News published by the TI Users Group of 
Will County, Romeoville, II. This puts the most used commands on 
one page for handy access at your computer. 



EDITOR COMMAND 


FCTN 


CTRL! EDITOR COMMAND 


FCTN 


iCRTL! EDITOR COMMAND 


FCTN 


CTRL 


Back tab 




T 


!Ins. Blank line 


8 


I IQuit 






Beginning/1 ine 
Command/escape 




V 


1 Insert character 




! 6 1 Reformat 




2orR 


9 


c 


!Last paragrapoh 




!6orH!Right arrow 


D 


D 


Delete character 


1 


F 


!Left arrow 


s 


1 S IRoil down 


4 


A 


Del. end of line 




K 


!Lef t marqin rel . 




1 Y IRoll up 


6 


B 


Delete line 




N 


! New page 




i9orPl Screen color 






Line #'s(on/aff) 


6 




INew paragraph 




IBorMlTab 


7 


. I 


Down arrow 




A 


INext paragraph 




!40rJ!Up arrdw 


E 


! E 


Duplicate line 




5 


INext window 


5 


1 IWord tat^ 




7orW 


Home cursor 




I L 


1 Oops ! 




llorZIWord wr^/iiKed 




i 



Load files: LF (enter) DSKl. FILENAME (load entire file) 

LF (enter) 3 DSKl . FILENAME (merges filename with data in memory 

after line 3) 

LF (enter) 3 1 10 DSKl . FILENAME (lines 1 thru 10 of filename are 

merged after line 3 in memory) 
LF (enter) 1 10 DSKl. FILENAME (loads lines 1 thru 10 of filename) 



Save files: SF (enter) DSKl . FILENAME (save entire file) 

SF (enter) 1 10 DSKl . FILENAME (save lines 1 thru 10) 



Print File5:PF (enter) PIO (prints control characters and line numbers) 
PF (enter) C PIO (prints with no control characters) 
PF (enter) L PIO (prints 74 characters with line numbers) 
PF (enter) F PIO (prints fixed 30 format) 
PF' (enter) 1 10 PIO (prints lines 1 thru 10) 

NOTE: The above assumes PIO. DSKl . FILENAME, and RS232 are also valid! 
To cancel the print command press FCTN 4. 

Delete file:DF (enter) DSKl . FILENAME 

Setting Margins and Tabs: (16 tabs maximum) 

L - Left marqin R - Riqht marqin I - Indent T - Tab 

Use ENTER 'to execute or COMMAND/ESCAPE to terminate command. 

Recover Edit: RE (enter) Y or N 

Line move: M (enter) 2 6 10 (moves lines 2 thru 6 after line 10) 
M (enter) 2 2 10 (moves line 2 after line 10) 

Copy: same as move except use C instead of M. 

Find String: FS (enter) /string/ (will look far string in entire file) 

FS (enter) 1 15 /string/ (will look for string in lines 2 thru 15) 

Delete: D (enter) 10 15 (deletes lines 10 thru 15 in memorv) 
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**************************************************************************** 

OOPSl * CTRL 1 * This can be a real lifesaver. It recovers, or "backs up" 

*(CTRL 2)* a function that you didn't mean to hit. Like if you goofed 

* * and hit "Delete Line" instead of "Insert Character", you 

* * just hit "OOPS I" and the line comes back. 



Del Char « FCTN 1 * This Is the same as "DEL" in console BASIC. It deletes 
*CCTRL F)* one character under the cursor and pulls the rest of the 
* * line up to fill. 



Reformat 


* CTRL 

* ( CTRL 

* 

* 

* 


2 

R) 


* 
* 
* 
* 
* 


This is used to close up the text after using Insert 
Character. It deletes all spaces oecween cne cursor ana 
the next word in the text. Then it draws all subsequent 
words up through the paragraph until it encounters a 
Carriage Return. 


Inff-Char 


* FCTN 

*(CTRL 

* 

* 

* 

* 


2 

G) 


* 
* 
* 
* 
* 
* 


In the Word Wrap mode (solid cursor), thirty two blank 
characters are inserted arter tne cursor ana tne ouj.k dl 
the text is pushed down the line. After insertion of new 
text, you hit Reformat and any remaining spaces are 
removed. In the Fixed mode (noiiow cursor t.nis ope£due±> 
the same as in console BASIC. 


Screen 
Color 


* 

* 
* 

.* 


CTRL 


3 


* 
* 
* 
* 


This allows you to cnose wnicn or une rive cdxoj. 
combinations of text/screen you prefer. The default, for 
good reason, is white on dark blue. I find this hard on 
the eyes. I prefer to turn down the color on my monitor 

•••.•4 Iter. a4+-Viov K1a("lf o n oyeen OT black on llaht blue. 

ana uses exuner dx«uiv w** yicci* uAai*,^ uii A^x^iiv w^uc^. 


Del. Line 


.« 
* 


FCTN 
( CTRL 


3 

N) 


* 
« 


Deletes the entire line that the cursor is on, including 
the space of the line. 


Next * 
Paragraph* 


CTRL 
(CTRL 


4 

J] 


* 

1* 


This advances the cursor to the beginning of the following 
paragraph and puts the first line at the top of the page. 


Roll Down 


* 
* 
* 


FCTN 


4 


* 
* 
* 


This is called a "vertical block scroll", which means that 
the next 24 lines of text are shown. This is handy for 
scanning quickly down the text to get to some point. 


Dupe Line 


* 
* 
* 
* 
* 
* 


CTRL 




* 
* 
* 
* 
* 
* 


This creates an exact duplicate of the line the cursor is 
on and places it directly below. Some have questioned its 
value in writing text, especially since the Move/Copy 
function can do the same, but this key makes it faster and 
easier to create repetitive lines such as a double row of 
asterisks under a title. 


Next 
Window 


* 
* 
* 
* 


FCTN 


5 


* 
* 

* 


This Is a "horizontal block scroll". It jumps across to 
display the next block of 40 characters, .in increments of 
20. For example, the screen starts out on column one to 
forty, then twenty to sixty, then forty to eighty. 



Last * CTRL 6 * The opposite of "Next Paragraph". 

Paragraph* (CTRL H)* 



Roll Up * FCTN 6 * The opposite of "Roll Down". 
•(CTRL B)* 

Word Tab * CTRL 7 * This moves the cursor down the line to the first letter of 
♦{CTRL W)*- each word. 

Jackson County SSers March 1986 
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T^b"" * FCTN 7 * Just like on a typewriter, this moves the cursor to the 

"(CTRL I)* next setting, defined using the Tab function on the 

* * cpnunand line. 

New "ctrl'b * This places a Carriage Return symbol at the end of the line 

Paraaraoh* * you're on and skips down to the next line. If you have 

Paragraph^ * J°eset an auto-indent (by using an "I" in Tabs), then it 

5 * * also indents over to the proper column. 

Ins'Llne"*"FCTN 8 * Inserts a blank line above the line the cursor is on. 
*(CTRL 0)* 

Nlw'page"*'cTRL'9 * Inserts a blank line with a Np and Cr symbol at the 

« * beginning. This causes the printer to feed to the next 

* * page. 

rmina/"*"FCTN"9 * This Is how you exit from the edit mode to get to the. . 
Zcavi *(CtIl O* conLnd line'^and the functions above it. It also is used 
* ^ It .* to cancel a command already in progress. 

»'~I'u™'I'rTRr'o~*~Thrs'switches from the "Word Wrap" mode to the "Fixed" 
word wrap * CTRL ^ ^his ^swi tch^^^ ^^^^ ^^^^ ^^^^^ 

* cursor jumps to the next line. If you're in the middle 

* a word at the end of the line, the whole word you were on 

* moves down too. This allows you to just type ""^inuous.y 
« « without looking up to see when to hit enter. In the fixed 

* mode, when you'reach the end of the line your letters Dust 

* * pile on top of each other and you hit enter to move to the 

* * next line. 

Zine r;cTrr*'This"remo3iror displays the four-digit line numbers at tne 

Numbers * * left side of the screen. The numbers are used for 

Numbers ^ ^ reference when manipulating blocks or lines of text, just 

* * like when you're editing a BASIC program. You need line 

* * numbers to refer to where changes will be made. 

Quit rFCTN'-TQumrthrilme as in console BASIC. Use Quit option of 
Quit ^ FCTH ^ u^^ command line to safely exit Tl-Writer^ 

Blck"Tlb'"*'cTRL"T'*"The same as Tab except it backs up one setting. 

* * 

BegInnInr*'ciRrrr^;;;r^hrcu^^^ the beginning of the line you're on. 

of Line * * 

Dellnd rc^RLT^Thiris'just like Delete Character (FCTN 1), except it 

of Line * * takes out everything to the ^i^^^^^ff f 

IZZ 7cTRL'L'*'This'movIs the cursor to row 1, column 1, on the screen 

cursor * * only, unfortunately, it doesn't move to the first line of 

* * text, which would be more convenient when yo" the 

» * end of a long document and wanted to jump to the^top^ 

'leleafe * ^^^^/^^^^^^^^^^^^^^^ 
«««««««««««****«*********" 

Jackson County 99er« March 1986 
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Bits, Bytes & Pixels 



(EDITOR'S NOTEi Thi folloHing thould be riid by 
thott Mho an tlriidy using FUNLHRITER and by thou Mho 
light coniidir uiing it. This artidi aniMin loie of 
the quistionf about FUNLNRITER that an not ladi 
coiplitily diar in thi FUNLHRITER docuuntation, luch 
at: Hon doii oni calculati thi K valutt in thi FH LOAD 
prograt? Hom do you knoM if your ASSH2 fill hai ainady 
bun lodifiid to run out of FN? Hhat does RESET do 
b«fon it OUIT'i? Hon should oni lavc a lourci fill in 
DFBO fonat to diik froi the E/A editor? The author ii a 
leabir of the Front Rangers User Group in Colorado. Hi 
taken his articli froi thi July Si issue of Hicropendiui 
and have added our own editorial notes.) 



A REVIEN OF FUNLHRITER 3.3 by Joe • Nuvolini 
303-596-6938 

PERFORHANCE d* 

EASE OF USE.. ...At 
DOCUnENTATION...A 

VALUE At 

FINAL fiRADE At 



I recently received an exceptional Fairvare disk 
froi two gentleien in the Kuntsr Valley 99 User Eroup in 
KcM South Hales, Australia. Their naaes are Hill and 
Tony HcSovcrn and the disk contained version 3.3 of 
FUNLHRITER iihich, according to an earlier letter I 
received froi Tony, will be the definitive version of 
this prograi. (ED. NOTE: Not all copies of FH v3.3 an 
alike. The FH authors continue to laki siall updatit. 
The date on the docuientation can tell ihich of tHO FH 
v3.3 disks is the lost recent.) 

This is by far the lost virsatili prograi I have 
sttn for the 99/«. It allows you to use Tl-Hriter(TIH) 
and the Editor Aseibler(E/A) lithout their respective 
■odules. The prograi autoloads froi Extindid Basic (XB) 
and aill also load froi the TI-Hritcr, Editor Atseiblcr, 
or Hini-Neiory lodules. The disk contains TI-Hriter, 
the Editor Asseibler, Disk Hanager 1000 vir 3.1 (a 
FREEWARE prograi of the OttaMa User's Group), a sector 
editor, an a FORTH loader. You can also load your 
asseibly prpgrais xithout the use of any lodulK except 
Extended Basic. To run the disk you need the console, 
32IC leiory, thi disk controlir and drive. It also helps 
to have a second disk drive and a printer. 

There is a file called -READ HE- and six FHDOC 
files that should all be printed using the TIN Foriatter 
and, ion iiportant, read before you begin. Hhen you're 
done Rith that copy the FUNLHRITER disk so you have a 
working copy and put the back-up away in a safe place. 



Iifon running the progrii ixulne the LOAD prograi 
by LISTing it. Lini 120 alloNS you to set the priiary 
and alternate screen colors. Lines 130 and 140 set the 
default options for the PF option of the Editor(130) and 
the Foriattir(140). Lines 160 through 190 allow you to 
inter the niiei of progriii you Mint on thi Uiir'i Llit 
option Mhile lines 240 through 280 are the load coninds 
for these options. You can set a value for K in line 
210 that Mill be the default for the drive nuiber that 
appears on the screen with DSK. DO HOT RESequence the 
LOAD prograi or you Mill destroy it. The FHDOC/LOAO 
file explains hoM to set up the User's List options and 
the various lethods of loading FUNLHRITER. 

Hon select a aethod and let's load the prograi. 
The first thing you'll see is thi title screen foIloNed 
by thi first aenu (ED. NOTE: If you get tired of thi 
title screen, press any key to go iaaediately to the 
first aenu) Mith three selections: i-TI-HRITER, 
2-EDIT/ASSH, and 3-USER'S LIST. He'll cover option 
three, User's list, later in this riviiw. If you select 
option 1 or 2 you arrive at the central aenu, which has 
6 selections. They an 1-EDITOR, 2-FORHATTER or 
ASSEMBLER, 3-DNlOOO, 4-UTILITY, 5-SHITCH, and 6-RESET. 
Selecting SHITCH changes option 2 to ASSEMBLER, 
c-COHPILER and back to FORMATTER so that you can switch 
between these functions. (ED. NOTE: Later versions of 
FH v3.3 also cycle through HODEH {your favorite teriinal 
■lulation prograi), DISK EDITOR (DISKO, a public doaain 
sector editor), and USER LIST with the SHITCH option. 
Froi this lenu, USER LIST only accissis user selected 
asseibly language prograas, not IB prograas.) I light 
lention here that the fles C996 through C99E will load 
REL2 of the c-Coipiler by Clint Pully. It loads froi 
this aenu using files C99B through E. This is the 
preferred lethod of entry. It aay also be loaded froi 
the prograi file loader, discussed later, by entering 
C99C at the filenaie proipt. You lust havi the rest of 
Clint Pulley's siall-c files for this option to bi of 
any use to the user. Pressing RESET places the current 
filenaie you have been Horking on into the lailbox so 
that if you liave TIH'or E/A and to to another 
FUNLHRITER function, say DNIOOO, and then return to TIH, 
whin you select the EDITOR or FORMATTER that filenaie 
wil be then for you to load or print. After selecting 
RESET the option six naic changes to SUIT and pressing 
that option returns you to the Haster Title Screen. 
He'll discuss option 4, UTILITY after we finish our 
discussion of TIH and E/A. 



Bits, Bytes & Pixels 



H you silict option 1-TI-HRITER froi thi first 
■inu you thtn can filfct thi EDITOR or FORHATTER froa 
thf cintral iinu. Thi EDITOR functioni liki thi TIN 
■ditor Nith thi thru lollOHing iaproviiintii 

1. H thi loidir cm find a filmaai in thi 
■ailboi it Hritii it into thi LF/PF bulfir, Hhich 
othiriiii ihoMi DSiCx Hhin cillid up Kith x biing thi 
difault ditk drivi tit in thi LOAD prograa. 

2. Thi quit function riaaini ditablid at all tiaii 
Mhili in thi EDITOR. 

3. Thi ihoH dirictory(SD) function it an aisiably 
routini that iIIoni singli kiy pagiing through thi 
filif. Fracturid filii an indicatid by an aitiriik 
aftir h» fill lingth. 

Thi FORHATTER ii thi laai » TIH Hith thi folloNing 
iaproveaentii 

1. Thtri ii noH a Quick Dirictory(BD) function 
hiri froa any aenu in tha prograii To access it you 
intar FCTN 7 (AID). It opiratis in thi laae Hiy ai thi 
SD function in thi EDITOR. 

2. Thi FORHATTER Hill autoaitically display thi 
last fill used Hhen it can find oni. If no nan ii 
prisint then DSKx appears. 

3. The FCTN 9 (BACK) kiy alloMS you to riturn to 
thi FUNLHRITER central ainu. 

If you need to reload lither the EDITOR or 
FORHATTER iiiediately after exiting thia thiy do not 
need to reload froa disk. . 

If you select the EDITOR Mhen A5SEKBLER or 
c-COKPILER is in the second position of the central 
aenu, a aodified version of the TIH EDITOR is loaded 
Hhich is suitable for use as a source code editor. Hord 
Hrap is disabled, E/A tab defaults are set, and no final 
tab record is nritten to ditk. To nrite a DFBO file to 
disk you use the PF option uting F DSKx. FILENAME at 
described in the TIN aanual. The sourci Editor loads 
CHARA2 Hhich is slightly dlffirint than the CHARAl file 
that is loaded by the TIH Editor. This acts as a 
reaindir to let you knon Hhich editor you are in. 

The ASSEHBLER has soae inhancaaints added. Thi 
filinaaes are visible on the screen nhile it is 
executing. You can use AID to give you 00, alloHtng you 
to chick the filinaai on thi disk. If a filinaai ii 
found in thi aailbox it is Hrittin at thi sourci codi 
filinaai and ti objict code is the saae naae nith the 
last tHO characters reaoved. Also, R is autoaatically 
entered in the Options field of the ASSEHBLER as a 
default value. 



UTILITY option 4 on thi central aenu, brings you an 
atsortasnt of asseibly file loaders called thi Prograa 
Load Environaent(PLE). This aenu displays five options 
on the scrim, but has a total of B optioni, thi last 
thru of Hhich ari intered in the blind.' Option 1 is 
for loading TIH utility filis liki Dragonslayir'i 
Spillchecker. Option 2 Mts up a GPL tnvironaent for 
loading other self-contained prograa iaagi fi'les] nhile 
option 3 if the E/A 'RUN PRO&RAH FILE* function. It 
should be noted here that the prograa file loaders Hill 
support cassette filet by entering 'CSi* (see E/A eanutl 
for aore inforation on this function). Option 4 is the 
E/A "LOAD AND RUN* function and handlii objict fills, 
coaprissid or not, and ivin displays thi DEF tabli so 
you don't havi to riaeabcr the prograa ixicution naai if 
the prograa does not auto start. Option S it RE-ENTER 
(1-3) and it alloHS iaaediati ri-mtry to a progru 
Hithout riloading it, atsueing it is n-intirabli. Thi 
invisibli options (i,7, B) alloH othir objict code 
loadin options, but In the intirist of brivlty I Hill 
not go into thea here, Inforaation on thise options can 
be found in the FHD0C-EA5H file. Entering FCTN 9 froa 
this aenu riturnc you to the cintral ainu. 

NoH Hi'll discuss thi USER'S LIST, option 3 on thi 
first aenu. This aenu has 9 options. The first B 
options can be' user defined although the LOAD prograa 
coaes set to run the Hyarc disk oanager ai option i, the 
sector editor DISKO as option 7, and a TI-FORTH loader 
as option B. Option 9 is BACK and it Hill return you to 
the FUNLHRITER title screen. This aenu is set in the 
LOAD prograa, as are the loaders. You can run IB 
prograas as Hell as E/A prograa or object fills froa thi 
USER LIST sinu if thi corrisponding files ari placid on 
thi FUNLHRITER disk. (ED. NOTE: thi pridifinid options 
6-B can, if not niedid, bi replacid uith your onn 
options.) The IB prograas an called by a RUN 
■DSKx.FILENAHE* stateaent. The E/A files are loaded 

using a CALL LINi(('UTlLA*,FILENAHE,K). Thi nuiirie 
paraicter K it the taee at Hould be entered froa the PLE 
diicutsed earlier, ie. 3 for an E/A prograa file and 4 
for a 'LOAD AND RUN' DFBO objKt code file. I find thit 
part of the prograa particularly uteful at you can put 
your favorite utility prograat on thi FUNLHRITER disk 
and havi thee available. In addition to TIH and E/A I 
have HastcDpy, Fatt Tire, 4A/Talk, PRBASE, DHIOOO, 
DISKO, the Ti-FORTH loader, and a progru called Recall 
all available through FUNLHRITER. I rarely take it out 
of drive II. I thould aention that I aa uting a double 
tided ditk to hold all that. You Hill bi loieNhat 
rettricted at to nhat you can put on a tingle tided ditk 
Hith the FUNLHRITER filet. (ED. NOTEt Single tided 
drive utert aight contider uting FH vertion 3.2 tince 
thit vertion leaves aore rooa than v3.3 for USER LIST 
filet. 



/3 



Bits, Bytes & Pixels 



Tht iiin thing you loofi Kith v3.2 it thi 
ibility to I Old FM froi ■odulii other thin thi IB 
■oduli. You ilio loot! thi ibility to do i QD froi 
othir plicii bitidii thi EDITOR.) 

Thin art siviril othir fllis luppUid Mith 
FUKLBRITER th»t dmrvt wntion htri. FWSAVE utility ii 
for ufi Mith E/A to iIIom SAVING of iny progrii loidid 
M in objict fill by FUNLHRITER into Iom iiiory. UPATCH 
ii a pitch thit criitit i fill cillid UTILl onci you 
hm your fcriin color and printir difiulti iit in thi 
LOAD progrii. UTILl it used to ri-tntir FUNLHRITER froi 
uviril triii such ii upon ixiting DNIOOO. APATCH file 
is used to lodify thi ASSH2 fill froi your originil E/A 
disk toMrk lith FUNLHRITER. The ASSH2 filt.so criited 
is 22 sectors long, 2 sectors longer thin the originil. 
It ippeirs thit the luthors hive ilriidy doni this on 
the disk provided. FURHH is for use Mith the 
Nini-Heiory loduli to loid the UTILl fill into high 
■iiory. 

A MTd bin ibout Fairniri... Hill and Tony havi 
sit no prici for this progrii but lerily siy 'I cin 
suggest only thit you Judge thi progru on its oun 
ffttrinsic iiriti, pirhips Misuring its north by hoH 
■uch you use it is coapirid to other 'fiiriire' or 
coaierical progrus that you usi.' I tight suggnt you 
do iihit our users group, thi Front Ringers, did. Hi 
collected donitions froi thi mbirs of our uiirs group 
Mho iintid thi progru and sint oni intirnitionil loncy 
order froa thi club to the luthors. Bi sun to indudi 
tMO disks (hin ordiring your copy unless you hivi doubli 
sided cipibility is thi MC files in ovir 200 sictors 
long. Also bi sun to indosi a coupli of dollars 
postagi as aail to and froi Australia is not cheap! This 
is truely a fini piici softNan. Lit's iiki sun the 
luthors are adequately coipinsited for their Hork. (ED. 
MOTEj The FH luthors lill NOT send FN dirKtly to the 
United Stitis unlets i 'significant vote of confidence' 
is ilio included. Your disk ind your pottage piid 
return aiiler ire, by theiiclvet, not enough. FH is 
iviiUblc froi user groups ind froa the Free Access 
Lihrirv 415-753-5581 at llttlt or no cost.) 




UJRITE RIGHT 
by Si 1 es Bazerman 

This time we are going to look at the TEXT 
EDITOR commands Hhile in the Command Mode. 
Some of these have been covered before but 
a review seems appropriate at this time. 
Also, this will give you the complete list 
for reference. The initials and <ENTER> 
and other following material indicate what, 
is to be typed. 

Copy -Inserts a copy of line or 
consecutive lines in another spot in* 
text buffer and renumbers lines, does 
not erase copied lines. C 
<ENTER>, start line NUMBER, stop line 
number, after LINE NUMBER, <ENTER> 

Delete -deletes line or consecutive lines 
in text buffer. D <ENTER> first line 
number, last line number . 

DeleteFile -Deletes file from disk. DF 
<ENTER> filename <ENTER>. (Once you 
use this the file is erased and cannot 
be recovered.) 

Edit - Exits Command Mode and returns to 
Edit mode. E <ENTER> 

FindString -Locates a word or phrase in 
the text buffer. FS <ENTER> /s/ where 
"s" is the word or phrase to be found 
<ENTER> 

LoadFile (whole file) -Loads a file from 
disk into text buffer. LF <ENTER> 
DSKX.XXX <ENTER> 

LoadFile (part of file)- Loads only part 
of a file into buffer. LF <ENTER> line 
number of first line to be loaded, 
space, line number of last line, space 
filename <ENTER> 

LoadFile (merge whole file)- Merges a file 
on disk with contents of text buffer. 
LF <ENTER> line number in text buffer 
after which the file is to be merged, 
space file name of file on disk to be 
merged <ENTER> 

LoadFile (merge part of file)-Merge5 part 
of file on disk with contents of text 
buffer. LF <ENTER>, line number in 
text buffer after which file is to be 
merged, space line number of first line 
of file to be merged, space, line 
number of last line to be merged, 
space, file name to be merged, <ENTER> 

Move -Moves a line or block of consecutive 
lines from one point to another in the 
text buffer. M <ENTER> line number of 
first line to be moved, space, line 
number of last line to be moved, space, 
line number of line after which moved 
text is to be inserted <ENTER>. (Very 
useful for school papers as you can add 
whole sections later on at the end of 
the text and then place them where you 



want instead of having to INSERT and 
REFORMAT.) 

PrintFile -Prints the contents oi text 
buffer. PF <ENTER>, device name 
(usually printer but can be disk), 
<ENTER>. To abort printing use 
TION 4. (This is the conmand ti 
for draft unformatted copy.) Ther 
some additional PF choices; L 
e, device nane, (aaxifflun lin 



use 
are 



f 

space, device nane, (aaxifflun line 
length is line number and 74 
characters, columns 75 to 80 are not 
printed.); C, space, device name, 
(eliminates all control characters 
entered in Special Control Mode before 
file is printed.); F, space, device 
name, (Prints in FIXED BO format.). 

Purge -Clears text buffer (contents of 

buffer nay be recovered by 

RecoverEdit) . P,<ENTER>, Y for Yes or 
N for No, <ENTER>. 

Quit -Exit program. Q <ENTER> S (save' 
file), P (purge file), or E (exit Text 
Editor and return to main menu) <ENTER> 
For Save or Purge follow the prompts. 

RecoverEdit - May recover all but first 
line of text buffer following Purge. 
RE <ENTER> Y or N (Yes or NO) <ENTER>. 

Repl aceStr i ng -Replaces word or words with 
another word or words in text buffer. 
RS <ENTER> /string to be replaced/new 
string/ <ENTER,>. Options in using this 
are: A (all) replace string in every 
subsequent instance; Y (yes) replace 
this string and find next instance; N 
(no) do not replace string in this 
instance but find next string; S (stop) 
escape this command. Mill only search 
from where cursor is, to search whole 
text move cursor to first line of text. 
You nay have to reformat after this 
command. 



(whole file)-Save3 contents of 
□ Tabs to disk (also can 
rinter). SF <ENTER> 



SaVeFile vnnuic Twez-save 

buffer including Tabs to 
be used to printer), 
filename <ENTER> 

SaveFile (part of filel-Saves part of file 
' ) disk, tab settings saved only if 
ived Dart contains last line- of 



of file 

to disk, tab settings saved only if 
saved part contains last line- of 
buffer. SF <ENTER>, first line number 
to be saved, space, last line number to 
save, space, filename, <ENTER> 

Showline - Locates line in text buffer by 
line number and locates it at top of 
screen. S <ENTER> line number <ENTER> 
( use for line 0001, and E for last 
line). 

ShowOirectory -Catalogs a disk on screen. 
SD<ENTER> disk drive number <ENTER>. 
To escape back to Command Mode press 
<ENTER> again. 



Tabs -sets margins, tabs, paragraph 
indentations in text buffer . T 
<ENTER>; in appropriate column number 
type L for Left margin, I for paragraph 
Indent, T for Tab settings, and R for 
Right margin, blank out any unused 
prompts, <ENTER>. 

This basically covers all the available 
commands. If you are not sure what to use 
then go to the Command Mode and look at 
the prompt line. Enter a choice and a new 
prompt line will appear, showing the 
commands for that section; enter a new 
command from the choices and a new prompt 
line will appear showing you what to enter 
for that command. 

It's not very often that I get excited 
about a software program but I have to 
tell you about this one. How would you 
like a program that loads from Extended 
Basic, contains not only TI-WRITER but 
also EDITOR/ASSEMBLER, runs just about as 
fast as the cartridges, and more. We have 
one now. 

This is a new "FREEWARE" program now in 
the group library called FUNLWRITER. It 
is a loader program in Extended Basic 
written by a group in Australia at 
Funnelweb Farm, and is an excellent 
addition to your software. It not only 
loads from menu Editor and Formatter, but 
under the Utility option loads both the 
Editor and Assembl er , and also other 
utilities. 

On the disk all the documentation and 
programs needed to fully support ALL 
commands and functions of both modules. 
Also on this disk is another FREEWARE 
program, Disk Manager 1000, Diskpatch 
(FREEWARE)a FORTH loader, and space for 
adding other options. Option 9 lets you 
load under four environments including 
•Run Program File-and "Load and RUN". 
This fills 358 sectors, or a complete 
SS/SD disk. It will run as written from 
any number drive (I don't know how, but it 
will). I have added in Fast-Terra 
(FREEWARE), Dragonslayer Spellcheck 

(copyright), and one of Jim Swedlow's 
Label Programs on a DS/DD without filling 

1 ^ a 
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From the Jackson County 99'ers, come these tips on modifying Tom Knight's 
Extended Basic load program for Tl-Writer, 

Apparently, when going from the Editor to the Formatter, the LOAD program 
reloads the assembly program, not checking to see if it is still in memory. 
The resulting wait can be avoided by making the following modifications to 
the LOAD program} 

100 CALL CLEAR :: CALL INIT :t CALL PEEK (-2043, A, B) ii 

IF A084 OR B075 THEN 108 
102 CALL LOAD (16360, 85, 84, 73, 76, 73, 84, 250, 212, 70, 79, 82, 

77,65,84,250, 132,69,68,73,84,79,82,250,22) 
104 CALL LOAD (8196, 63, 232) ii GOTO 110 
108 CALL LOADC'DSKl.WRITER") 

The second tip deals with the potential problem of selecting "SD" for Show 
Directory and losing your current work. If you are aware of this problem 
you can probably avoid it, however, there is a fix. Find the third sector 
of the EDITAl program (using a utility program such as DISKO) , and make the 
following modification: 

ORIGINAL FORM 

2D 54 53 48 3E OF 2D 54 52 45 3E 2C OC 
2F CA 4D 20 3E 84 2F 42 53 44 3C D4 18 
2E 4C 53 46 00 00 2E 8A 4C 46 00 00 

ALTERED FORM 

2D 54 53 48 3E OF 2D 54 52 45 3E 2C OC 
2F CA 40 20 3E 84 2F 42 20 44 3C D4 18 
2E 4C 53 46 00 00 2E 8A 4C 46 00 00 

This change in the program will return. you to the command line should you 
happen to press "SD". 

LFMI QVFLTRPXNOUYBUBTZ HYAHPLAUHSY 
FULMLJCQAMEHCRKZOCEYIKBHLKTPPCRE 
I 6CT2 H JATE6AH I YUACCEPTATPMBYBOCC 
WYWCMNLNLHLUNJABZOXAIFCFEUKKOMAH 
B6KQDEMEHL26UQAHJHWAI GCBHBKN2WI T 
EIJOUADJCI JMNUCDBOTDMU'v'SRGWULCTX 
VNEDRLUHJHMORDOTLTGUIOTQKAGPNFFC 
OJQXETAWCHADYNGRSUMYNSDKRXPRHGLA 
SYMRJRNORT I U6SZTTGPEQUJPNZ JCOXJHL 
SDSOSJECZSMTYATIYYRLSQILLMGPNIUL 
AXBEOFUAPAOMOXFYXRNCHNUMABCWBXDP 
OGTRGYQLMMCNOEGXOLLRGBUMXYSBUTDE 
GJLCHKALPDSABNSRHAIXGLUQPFUGUDCE 
DBHDCYXIFLKBLRMJMJTNWWJUDBCSZNFK 
I KRJAWNKBZHRLEYPRGJPIJZODGNI AIT 
I ROTHAZ IMYRRBXLAKZQSMIJXIXTHQPNU3 
BGSNUIMTEFMHMZ JI KOJYGLTUI DJKAQ6R 
W E Z W A E Z H R 2 J Z L L BYN JW CY D SMM CM SX JT S 
BFMNM I 2 DADJLDDOYXKUCOCCCAMOHRT I Y 
M2 CZ USBDSFWGN I SUTN I RPQUGNUID I N2 L 
QI 2NI LLLlESLMMUQ2UTMYPAONEGD'v'EL2L 
DIWZTWRRAKHASKRJOHNOI SREULl ACQPS 
UWEGYOYHLCOET I RPSLLACD JOD JRA'v'YPX 
K C I X I YXU LM E A L Z A DKfM RWNJASOANBBY 
I YYQDAOLLLACQEGSHW'v'HEQCO JRN I Q I TB 
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UOROSEARCH 



***WORD 
DI SPLAYAT 
ACCEPTAT 
IMAGE 
CALLINIT 
CALLLOAD 
CALLLINK 
L I NPUT 
SIZE 

CALL'v'ERSl ON 
CALLPEEK 



LIST*** 
ON BREAK 
ONERROR 
PR I NT USING 
ONWARNING 
DI SPLAYUSING 
UALPHA 
ERASEALL 
CALLJOYST 
CALLSPRITE 
CALLCHARSET 



AN INTRODUCTION TO FILE PROCESSING WITH TI-BASIC AND EXTENDED BASIC 

By R. K. Hallmark 



Editor's Note: The following article was copied iron the July, 
1984 issue oi 'The Suncoast Beeper', Newsletter o^ the Suncoast 
99er's St. Petersburg, Florida. 

Files, Records, and Fields: 

File-A file is the way basic programs comunicate data with 
£xternal storage devices. Sone typical external devices are: 



Device 

Cassette Recorders 
Disk Drives 
Parallel Port 
Serial Ports 



File Naiae 
CSl or CS2 
OSKl to 3 
PIO 

RS232/1 or 2 



Record-A group oi data items which are stored together in a file. 

Field-A single data item in a record. Each variable in your 
program will occupy one field of a record. 

A file consists of one or more records and these records 
consist of one or more fields. Uhen the computer transmits data 
to one of the devices listed above it sends one record at a time. 

File Attributes: 

Files may be organized in a number of different ways depending 
upon the device, being used and what the file is being used for. 
The organization and other charactheristics of a file are called 
its attributes. Uhen data files are opened in BASIC (using an 
OPEN statement) you describe the file and its attributes to the 
computer. In the discussion below the order of the attributes and 
the terms used are the same as in your BASIC manual. 

It is not always necessary to specify each of the attributes. 
In many cases the computer will select what is called a 'default 
value' if you do not chose one. The default value that the 
computer will use depends upon both the device selected and the 
other attributes of the file. 



(File HO is the screen 



A. File jl-Hay be any number from 1 to 255. 
for output and the keyboard for input.) 

B. Device Name-See list above. 



C. File Organization-the file organization refers to way 
individual records wi thin the file can be accessed. 

1. SEQUENTIAL-Oata is read to or written from a file starting 
at the beginning and going through the file one record at a 
time, you cannot skip around. All files except disk files can 
only be sequential. Sequential is the default for file 
organization. 

2. RELATIVE-True random access files. The records can be 
written to or read from in any order, Disk files can be 
either relative or sequential. 

D. File Type-this refers to the format in which the data is 
stored. 

1. INTEi^L-The data is stored in the binary form in which it 
can be most easily used by the computer. Files stored on 
cassette or disk should be internal fopraat. 

2. DISPlJ)Y-The data is stored in ASCII format. This format is 
used for sending data to the parallel and serial interfaces. 
Display is the default for file type. 

n 



E. Open Mode-Describes whether the file may be written to, 
read from, or both. 

li UPOATE-The file may be both written to or read from. 
This is the default for open mode. 

2. OUTPUT-The file may only be written to. 

3. INPUT-The file may only be read from. 

4. APPEND-Allows you to add additional records to the end 
of the file. 

F. Record Type-Describes whether the file has FIXED or 
VARIABLE length records. All relative files have fixed 
length records. 

1. Cassette Files-These files may be specified as fixed or 
variable but the computer actually uses fixed length 
records which may be 192, 128, or 64 bytes long. The 
default for cassettes is VARIABLE with a maximum length of 
64 bytes. The computer actually uses FIXED with 64 as the 
length. 

2. Disk Files-SEQUENTIAL disk files have the default 
length of 80 bytes and a maximum length of 254 bytes . 
RELATIVE disk files must be of fixed length and may be up 
to 255 bytes in length. 

3. The printer ports (RS232 and PIO have the default 
record type of FIXED with a length of 80 characters. 
Other lengths may be used. 

Sample Cassette Programs: 

Data Input: 

100 OPEN »l:'CSr,SEQUENTIAL,INTERf«L, 
OUTPUT.FIXED 192 

110 INPUT 'NUIBER OF fWMES: ': NUMBER 

120 FOR 1=1 TO NlihBER 

130 INPUT 'LAST r«1E: ':IM1E« 

140 INPUT 'FIRST ^W1E: ':fNAME$ 

150 INPUT 'ADDRESS: ':ADDRESSI 

160 INPUT 'CITY: ':CITY1 

170 INPUT 'STATE: ':SrATE« 

180 INPUT 'ZIP: 'ZIP 

190 PRIMT HI :IM1E$,FWHE$, ADDRESS!, 

CnY$,STATE$,ZIP 

200 NEXT I 

210 CLOSE HI 

220 END 

Data Output: 

100 OPEN »1: 'CSl', SEQUENTIAL, INTEIWL, 
INPUT, FIXED 192 

110 INPUT 'NUMBER OF fWIES ;':NUHBER 

120 FOR 1=1 TO NUMBER 

130 INPUT il!LNAME$,FmiE$,AODRESS$, 

CITr!,STATE$,21P 

140 PRINT fmiii • "jLWIEl 

150 PRINT ADDRESS! 

160 PRINT Cm$|',')STATE!;' 'jZIP 

170 FOR 0£LAY=1 TO 2000 

180 NEXT DELAY 

190 NEXT I 

200 CLOSE HI 

210 END 



CALL KEY 



THE CALL KEY PROERflH IN EXTENDED BASIC IS A 
VALUABLE TOOL BUT I FOUND THAT IT HAS TAKEN 
HE A LONE TINE TO REALLY UNDERSTAND IT'S 
PROPER USEA6E. ONE THIN6 THAT HELPED HE HAS 
THE FOLLOIHNS QUICK REFERENCE CHART NHICH I 
PASTED INTO HY EXTENDED BASIC HANUAL FOR QUICK 
REFERENCE. Joyci Corkir, Nalthaa, Hais. 

CALL KEY (0, KEY, STATUS) 

O^becoies whitcver lodc mii usid 
by priviouj CALL KEY stitHcnt 
KEYMi returned as ASC VALUEO 
STATUSs-i if NO KEY it prcssid 

CALL KEY(1,K,S) 

Returni K valuii froi LEFT SIDE of keyboard 

CALL KEY(2,K,S) 

Returni K values froi RIEHT SIDE of keyboard 

CALL KEY»(3,KEY,STATUS) 
3=TI/99 4 HODE (FORBIVINB) 
Keenly UPPER CASE letter values 

arc returned even H i 

loner case letter is pressed 

In error BUT only works with 

FUNCTIONS 1-15 - NO CONTROL KEYS 

CALL KEY»(«,K,SJ PASCAL NODE 
provides UPPER and LONER cast 
letter values 

FUNCTIONS 12M43 - CONTROLS 1-31 

CALL KEY(5,K,S) 

5=BASIC aode for TI/994A 
K»returns BOTH UPPER LONER 

CASE letter values BUT if 

upper case ansiters art 

asked for and loHer cast 

are returned, the lower cast 

inswers won't be accepted. 



STATUS KEY CHAN6ES (EXCEPT IN '0' 
SM (NEN KEY PRESSED) 
S«-l (SAHE KEY PRESSED) 
S*0 (NO KEY PRESSED) 



HODE) 



KEY COMBINATIONS 

IZll ^r^Sn""^""""^ ^^^^^ (AND'"R"E"uSM"B"LE'rnp7A";j 
TRICKS FOR PR06RAHHIN6 AND I'VE NORKED OUT A FEN USEFUL CALL m 

S'T!„' ' '''' USE NHENeSerT D 

S;t,1'^S"^' ^"^""UTE LINE NUHBERS OR 

C STR CT SnV" '"STfiUCTIONS INTO THE 



YES OR NO ANSNERS NITH CALL KEY 

80 CALL CLEAR 

90 PRINT "Y OR H? • 
100 CALL KEY (0,K,S) 
110 IF K»78 THEN PRINT 'NO' ii STOP 
120 IF K089 THEN 100 ELSE PRINT 'YES' 
130 STOP II END 



SPACE BAR OR CARRIAGE RETURN (ENTER) ANSNERS 
HITH CALL KEY 5 

100 DISPLAY AT(3,3)ERASE ALLi'PRESS SPACE BAR TO CONTINUE' 

I « 'PRESS ENTER/CARRIAGE RETURN TO PRINT' 
110 FOR DELAY- I TO iOO ii NEXT DELAY 
120 CALL KEY(5,K,S) 

THEh"i20™" "'"^ '^^"^ ^""^^ 

MO IF K.13 THEN PRINT 'ENTER (C/R) NAS PRESSED' 
ISO STOP 11 END 



R16IDLY CONTROLLED ANSNERS NITH CALL KEY 3 

'00 J'SPLAY^AT(3,3)ERASE ALLi"PRESS Y FOR YES' i i' PRESS 

no FOR DELAY-! TO iOO ii NEXT DELAY 
120 CALL KEY(5,K,S) 

130 IF K=89 THEN PRINT 'YES.YES' ELSE IF K078 THEN 120 
140 IF K-78 THEN PRINT 'NO.NO' 
ISO STOP II END 



ACCESSING FUNCTION AND CONTROL KEYS AND ARROHSi 

100 DISPLAY AT (3, 3) ERASE ALLi'PRESS CONTROL KEY , ' 
110 FOR DELAY-1 TO iOO ii NEXT DELAY 
120 CALL KEY(5,K,S) 

130 IF K-128 THEN PRINT 'CONTROL, COHHA PRESSED' 

ORi 100 DISPLAY AT(3,3)ERASE ALLi'PRESS FUNCTION RI6HT ARRON' 
130 IF K-9 THEN PRINT 'RIGHT ARROH KEY PRESSED' 

ORi 100 DISPLAY AT(3,3)ERASE ALLi'PRESS FUNCTION 8' 
130 IF K-i THEN PRINT 'FUNCTION B PRESSED' 



ALPHABET ANSNERS THAT ARE FORGIVING OF HRONG CASE 
ANSNERS NITH CALL KEY 3 

100 DISPLAY AT(3,3)ERASE ALLi'PRESS R TO REPEAT'i j 

" PRESS P TO PRINT' 
110 FOR DELAY-1 TO 400 ii NEXT DELAY 
120 CALL KEY(3,K,S) 

130 IF K-82 THEN PRINT 'HERE YOU MOULD GO TO YOUR REPEAT 

SUBPROGRAH' ELSE IF KO80 THEN 120 
140 IF K-80 THEN PRINT 'HERE YOU NOULD GO TO YOUR PRINT 

SUB PROGRAM' 
ISO STOP II END 



YES OR NO ANSNERS NITH CALL KEY 3 

THAT FORGIVE YOU IF YOU ANSNER AN UPPER CASE QUESTION NITH 

A LONER CASE ANSNER. 

100 DISPLAY AT(3,3)ERASE ALLi'PRESS Y FOR YES'i i' PRESS N 
FOR NO' 

110 FOR DELAY-1 TO 600 ii NEXT DELAY 
120 CALL KEY(3,K,S) 

130 IF K.89 THEN PRINT 'YES, YES' ELSE IF K078 THEN 120 
MO IF K.78 THEN PRINT 'NO.NO' 
ISO STOP II END 



MICRO'.S IN ACTION 



"Gettino Spritely With The 99/4A" 
by Bill Cacil e 

I was thinkinQ about an application -for a s-o-ftware driven proce«=.<=. controller The 
current state o+ the art. has six mechanical timers, in a box that pass the timino control 
o^ the processes ^rom one timer to the next and, at best, the timers are easv to damage. I 
^ belieue this is a crude way to do business. So armed with an idea and the Extended "BASIC 
manual I sat down and commenced to write some code. The ^irst thinq I did was to code ^ome 
bit strinos to make box es. I needed -four corners, two sides, a top and a bottom line. 
, This oave me th e characters to make a series o-f boxes to put the "blQ" sequence numbers 
in. The boxes were created with a loop that looks like this: 

100 FOR I=S TO 24 STEP 6 

no R=l :: H=3 :; C=I + H :: W=H 60SUB 600 
120 R=6 :: H=3 :: C=I+H :: W=H :: 60SUB 600 
ISO NEXT I 

These variables are -for <R)ow, (Oolumn, (W>ide. (H)iQh. The sub at 600 look=. like 

this: 

600 CALL HCHAR(R.C, 120.1) (This code prints an upper le-ft hand corner. 
610 CALL HCHAR'.R.C+l ,121 .W) <This makes the top line) 

The code continues till the box is printed on the screen and then it "RETURN"s to the loop 
to get the next set o-f R. C. W. and H to make the next box till all six are on the screen. 
To create the "bici" numbers 1 used code like this; 

FOR 1=1 TO 8 :: CALL CHARPAT<ASC<STR$<I)) ,N$<I)) :: NEXT I 
This gets the bit pattern stored in the basic ROM and puts that pattern into th e c.trinr- 
array called "N" . Next you have to assign character numbers to the sprites with this: 

FOR 1=1 TO 6 ;: CALL CHAR< I + 1 25 ,Nf < I) ) : : NEXT I 
this assigns the character number of 126 to 132 to the "big" number sprites. 
To get the big numbers on the screen, 1 used; 

CALL SPRiTE<«N,CHAR«. COLOR. DOT ROW, COLUMN) 
and to get each sprite in the proper box, I used the "ON Y GOTO" statement. This wa= 
incorporated in a sub-routine like this; 

420 GOSUB 8000 

8000 ON Y GOTO 8010.8020,8030. etc. 

8010 CALL SPRITE<«1 .126.2. 12.92) :: RETURN 

8020 CALL SPRITE<«2,127,2,12,141) :: RETURN 

this was continued until all six sprites (big numbers were defined and Y is the sequence 
currently being timed. 

Next 1 had to produce a time keeping function. 1 used the ability of the MOP to keep 
a sprite in motion, once it is set in motion. This was accomplished by defining still 
another sprite and setting it in motion down the left side of the screen. The sprite was 
chosen to look like a sideways U and it slid down row of numbers. The speed was chosen by 
trial and error to give a speed of two lines per second, this would make the sprite pass a 
number every second and using the CALL POSITION(X,Y) , X will have a down row value that 
will correspond to the number. This will let you compute the time from the value of X. 1 
then wrote a routine that would continually check the value of X and when it was greater 
than the preset time for that segment, it would increment the sequence and start the next 
time interval. This would continue until all of the sequences are set up. 

Tl had made it very easy to put sprites and text on the screen at the same time. 
Maybe this will help some of you to start to play around with the extensive graphic command 
set which is built in Extended BASIC and 99/4A. If you try, you can do sc^ne tricky things 
with the screen and the sprites. I hope this will make you feel spritely! 
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32K MEMORY CHECKER 
by Joe Nuvol i n i 

Editor's Note: The -following article was reprinted from the February, 1986 
i^ssue ot "The Front Ranger", Newsletter of the Front Range 99er Computer 
Club of Colorado Springs, Colorado. 



I recently picked up a second TI system at a bargain price but to my 
chagrin, I found that the 3SK memory card was bad. With the help of one 
of our members, ' Darnell Denison, I found that I had a bad HIE chip. 
Darnell wrote me a short program that told us which one it was. 1 took 
that program and refined it a bit and the program below will tell you 
exactly which 411B chip is bad. Of course, you must key the program if 
your memory card is bad. Once keyed in the program will allow you to 
select the top or bottom row of chips and it will list the chips in the 
row • selected by chip number, i.e., LJ35, U34,...etc. and tell you whether 
the chip is OK or BAD. Then you need only replace the chip and your card 
is fixed saving you 547+. Remember this program will only tell you if one 
of the IB 411B chips is bad. If it is one of the other chips, this 
program will not work. Luckily, the chip that was bad on mine was a 411B 
and it is now working just fine as I write this article. By the woy, Bob 
Haggart was ' kind enough to give me. a tube of 411B chips that he had 
removed from a TRS BO so if you should need one I have a good supply, and 
will be glad to give you one. Also, TI put those chips in to stay and 
they are a bear to get out. If you change one, I suggest you put a socket 
in to hold the replacement. The program listing follows: 

110 PRINT "nEFIORY EXPANSION . CHECKER" : : : 

ISO PRINT "SINCE PRDGRAnS LOADED FROH DISK IN XB LOAD INTO THE 
32KnEnDRY, THIS PROBRAn SHOULD BE KEYED IN IF YOUR 32K CARD IS BAD!": 

130 PRINT "TO USE THE INFORHATION PROUIDED BY THIS TEST ORIENT YOUR 
MEIIDRY EXPANSION BOARD WITH THE TUD ROUS OF 411E CHIPS AT THE TOP.": 

• • 

140 PRINT "ENTER: 1 TO CHECK TOP ROU OF CHIPS S TO CHECK BOTTOH ROU 
3 TO END" 

150 CALL KEYCO.K.SD:: IF S-0 THEN 150 
IBO IF K<43 OR K>51 THEN 150 
170 R-K-4a 

180 IF R-1 THEN A— lESBB ELSE IF R-S THEN A-1EEB7 ELSE IF R-3 THEN 

CALL CLEAR : : END 

130 IF R-1 THEN N-35 ELSE N-E7 

SOO CALL CLEAR 

SIO IF R-1 THEN PRINT "TEST OF TOP ROU OF 411B'S." ELSE PRINT "TEST 
OF BOTTOn RD W OF 411B'S" 

SEO PRINT :"READINB FROn RI3HT TO LEFT..": : 

S30 FOR I-O TO 7 

E40 IN-S I 

E50 CALL I NIT 

SBO CALL LDADCA, IN3 

E70 CALL PEEKCA.DD 

EBO IF IN-D THEN PRINT "CHIP U";STRSCND;" IS OK" ELSE PRINT "CHIP 
U";STRSCND ; "IS BAD" 
E30 N-N-1 

300 NEXT I 
310 PRINT 

320 INPUT "PRESS ENTER TO CONTINUE ":XS 
330 EDTD 100 



THINGS TI NEVER TOLD US 



PREVENTING MEMORY LOSS 



Losing a program -from console memory can be a very -frustrating experience, especially i-f the 
program had not been sawed. One o^ the most common ways to lose a program, is by pushing the 
■function plus < + ) instead of the shi-ft plus < + ) key, which immediately erases everything in 
memory. I have had to tolerate this -for the last two years with no way to prevent it. Now I 
have found this can be eliminated also if you have the extra memory and Extended BASIC by doino 
tNe following: 

CALL INIT 
* CALL LOAD(-31806,16) 

If you have any preschoolers and have noticed they have a habit of accidentally clearing the 
memory then this is a necessary routine to add to their software. 

Editor's Notes This TINT comes to the Hoosier Users Group, courtesy of the Puget Sound 99er= 
of Lynnwood, Washington. 



I do not know if this will be of any 
interest to anyone (probably everyone 
knows it already); however, for those of 
you who do not, using Function 3 (erase) 
key will give you a running clock in the 
lower left hand side of the screen when 
using the A-Maze-Ing solid state module. 
Likewise, the quickest previous time 
through the maze appears and remains 
until a person beats the time and then it 
i?. updated. I did not find any mention 
;h i 5 in the manual . 
Submitted by Donna Griffin. 

Other quirks on the TI computer; 

For new TI computer owners, there is 
an easier way to edit program lines in 
BASIC. First, type i^ the line number 
that you want to edit, and press 
Function X (the arrow down key). After 
you finish editing the line, press ENTER. 
It is easier to use than the EDIT 
command, espec i al 1 y when doing multiple 
1 ine edi t ing. ! 

For those of you who have not been 
told yet, there is a way to access the TI 
Test Mode on the Munch Man Disk or 
Module. To accomplish this, after 
selecting the Munch Man option and the 
title screen appears, hold down the shift 
key and enter the sequence 8 3 8. But be 
quick because you must do this before the 
computer begins to play the music. You 
will then select the speed (IRND 6-2), 
then the screen level (SS 08-19), and 
then the number of Munch Men (MM 1-9). 
a real challenge, try level 29 (enter 
but you will probably need all 9 
Munch Men to finish this screen alone! 



by Jim El 1 is 

How many 'of you using Multiplan with 
two drives are bothered by having to set up 
the system after loading for DSK2? Well if 
you know how to use Disk Fixer or some 
other similar program here is the way to 
make Multiplan come up with DSK2 as the 
default drive for your files. 

The following is a sector from 
Multiplan, it is the second sector of the 
MPINTR file. The byte I have left empty 
normally contains 31 (hex for 1). With 
your sector editor, change this byte to 32 
(hex for 2), then save the sector back to 
your disk. When you load Multiplan you 
wont see it display DSK2 under the 
TRANS/LOAD OPTION, but it will look at 
drive 2 for your files. 

I found this out by trying different 
things until I got the right results, 
because I was tired of having to setup the 
drive every time I loaded the system. Hope 
this helps someone. 
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THINGS TI NEVER TOLD US 



Editor's Note: Uhen creating this column I did not expect to see it included in the HUCger 
Newsletter often, but, little did I realize how much can be learned by experimenting. 

This month's TINT'S come from sources outside the Hoosier Users Group. They are handy when 
you are involved in a midnight debugging session and say OH-OH! 

The -first TINT comes -from Jim Peterson o-f Tigercub Software; 156 Collingwood Ave., 
Columbus, Ohio. Jim has this to include from Tips from the Tigercub # 3; 

Here's a lifesaver that was passed on to me verbally, so 1 don't know who to credit for 
discovering it. ...It's 2 A.M., you just got the last bug out of your new program, you sleepily 
put a new cassette in the recorder, type OLD CSl , hit enter and. . . .ooooh ! , you meant to type 
SAVE CSl!! But all is not lost - just type SHIFT E, hit ENTER, get an I/O error message and 
start over! (Editor's Note: If you have the Alpha Lock D(M«I and type E, and hit Er-TTER, you will 
get the same results. The lower case "e" is not accepted when using this procedure. Look for 
more frran Tigercub S 3 in the December Newsletter.) 

And the second comes frc»n the Pittsburgh Users Group newsletter "Peripheral": Let's say 
you're editing a program and instead of pushing Function 2 (Insert), you inadvertently miss 2 
and hit Function 3 (Erase)! DO NOT HIT ENTER! Instead, push Function P (the quotation marks) and 
t«-on press ENTER. LIST the program, and guess what — you didn't lose the line after all! 

-iter's note: When typing in the Function P and ENTER, the computer will come back stating 
"INCORRECT STATEMENT". Since this is not a valid entry, your original data was not lost, it 
just became "temporarily invisible".) 



Texas Instruments 

BACK TO SCHOOL 
Expansion System Special 




. P-BOX (PHP 1200) 

• DISK DRIVE (PHP 1250) 

. DISK CONTROLLER (PHP 1240) 

• 32K EXPANSION (PHP 1260) 




-PLUS- 



YOUR CHOICE OF: 
MULTIPLAN (PHM 3113) 
OR 

TI-WRITER (PHM 3111) 
OR 

TI-LOGO II (PHM ,31C9) 
AT NO EXTRA COST 



ADDITIONAL SAVINGS ON SEVERAL OTHER ITEMS: 
TUPRINTER. MODEM, RS232. AND MORE! 

OFFER GOOD FOR A LIMITED TIME C»^LY! 



Converting other Basic's 

Rich Klein had an interesting article in 
the May 19B6 issue of the Chicago Tiroes 
newsletter concerning the use of BASIC 
and X-BASIC's DEFine statement. DEF 
allovjes the programmer to define his/her 
own functions, for example: if you 
wanted to use PI in a BASIC program you 
could start off by typing 

1«0 DEF PI=3. 141592654 

From that point on, anytime your program 
came across the function PI it would 
evaluate it as defined. 

A similar situation could be used to 
define functions found in other BASIC'S 
but not found in TI BASIC. For example, 
many BASIC'S contain the functions 
LEFT$, MID$, RIGHTS. These could be 
handled in TI BASIC by defining them as 
f ol lows. 

100 DEF LEFT$(X$,Y)=SEG$(X$,1 ,y) 

110 DEF MID$(X$,Y,Z)=SEG$(X$,Y,Z) 

120 DEF RIGHT$(X$,Y)=SEG$(X$,LEN(X$)-Y-1 
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♦ ♦ TodIcs - LA '^^mr^ ♦ ♦ 

DS #.-'^ yo"'" children to learn to play the piano, but can't ^ttnr« 

^ new? Here is an inexpensive substitute: tL TI-S9/4A pi^^o ' 
You play only the bottom three rows, essentially all of he VAtVr key, Vn.. , 
the- with the shift key up or down. In one case you pJay wSo e notes the IZl 
you play half notes, which repeat when you hold down the iTy. ' 

m,rrchS?"r::/°" ''''' - ^-"^ very a^using to 

To keep the program simple, the screen is left blank. But that does not imoed* all vn., 

This program was published in Nittinian, the Swedish newsletter for 99— r, , l 



58 REM PIANO, NITTINIflN 84-2 

100 CALL KETC0,K,S3:: IF S-8 THEN 103 

110 IF K-45 THEN 109 

12a IF K<44 THEN 100 ELSE IF K>46 AND K< 
58 THEN 100 ELSE IF K>60 AND K<65 THEN 1 
00 

130 IF K>30 AND K<38 THEN 108 ELSE IF K> 
36 THEN 200 2 CHECK IF LOUER OR UPPER CflS 
E LETTER HAS BEEN PRESSED 
148 IF K=44 THEN CALL SOUNDC- 100, 1588, 0J 
5! GOTO 180 

158 IF K-48 THEN CALL SOUNDC-100, 1760, 0J 
GOTO 100 

CALL SOUNDC-100,638,8J : 



188 IF 
: GOTO 



CALL SOUNQC-100, 1881,03 
CALL SOUNDC-120,-8,03s : 



K-53 THEN 
188 

17S IF K-5S THEN 
JS GOTO 188 
180 IF K-60 THEN 
GOTO 100 

185 REn UPPER CASE LETTERS ASCII-65->S0 
138 0H-K-Q4 GOTO 210,220,238,248,258,288 
, 278, 280, 230, 300, 318, 329, 338, 340, 350, 360 
, 378, 388, 330, 400, 410, 420, 430, 440, 458, 468 
135 REn LOWER CASE LETTERS ASCI I-37-> 122 
200 ON K-38 GOTO 470,480,430,599,519,529 
,530, 549, 559, 560, 570, 589, 539, 699, 819, 829 
, 830, 640, 650, 660, 670, 680, 630, 799, 710, 720 
205 REn UPPER CASE LETTERS=HALF TONES+NO 
ISE 
210 
220 
230 
240 
250 
260 
270 
209 



CALL SOUNDC -120, 466,03 
CALL SOUHDC-120,-6,0: : 
CALL SOUNDC-120,-1,0D : 
CALL S0UNDC-129,622,9J 
CALL SOUND (-129,156,93 
CALL SOUNDC-129,749,0J 
CALL SOUNDC-J29,831i03 
CALL SaUNDC-129,332,03 
2a;> CALL SOUNDC-12g,311,03 
30a CALL S0UND(-12g, 1193,9 
318 CALL SOUNDC-120, 1245, 9 
328 CALL SOUNDC-129, 1480, 9 
330 CALL SOUNDC-120, -4, 03 s 



GOTO 100 
GOTO 100 
GOTO 100 
GOTO 100 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
: GOTO 



190 
100 
109 
109 
199 
199 



! GOTO loa 
: GOTO 100 
GOTO 199 



340 
350 
388 
370 
380 
330 
490 
410 
420 
430 
440 
450 
468 
485 
479 
480 
438 
509 
519 
528 
538 
549 
559 
569 
579 
589 
539 
699 
619 
629 
839 
649 
859 
669 
879 
680 
899 
709 
719 
720 



CASE 



CALL SOUND C- 
CALL SOUND C- 
CALL SOUND (- 
CALL SOUND (- 
CALL SOUND (- 
CALL SOUND C- 
CALL SOUND C- 
CALL SOUND C- 
CALL SOUND C- 
CALL SOUND (- 
CALL SOUND C- 
CALL SOUND C- 
CALL SOUND C- 
REn LOUER 
CALL SOUND C 
CALL SOUND C 
CALL SOUND C 
CALL SOUND C 
CALL SOUND C 
CALL SOUND C 
CALL SOUND C 
CALL SOUND ( 
CALL SOUND C 
CALL SOUND C 
CALL SOUND C 
CALL SOUND C 
CALL SOUNOC 
CALL SOUNOC 
CALL SOUNOC 
CALL SOUNOC 
CALL SOUNOC 
CALL SOUNOC 
CALL SOUNOC 
CALL SOUNOC 
CALL SOUNOC 
CALL SOUNOC 
CALL SOUND C 
CALL SOUND C 
CALL SOUNOC 
CALL SOUND C 



29,-5,93 : 
29,379,93 
29,415,93 
20, 177,93 
20, 185,93 
20,554,93 
29,298,93 
29,277,93 
29,-7,93-: 
29, 133,93 
29,-2,93 : 
29,233,93 
29,-3,03 



GOTO 199 
! GOTO 190 
: GOTO 
: GOTO 
: GOTO 
J GOTO 
: GOTO 
: GOTO 

GOTO 



100 
100 
100 
100 
199 
190 
100 



5 GOTO 100 
GOTO 199 
• goto' 190 
GOTO 100 



LETTERS3WH0LE TONES 
90, 234, 03 : : GOTO "199 



09, 1175,03 
00,388,03 : : 
00,343,03 1 : 
001 131,03 : : 
09,332,93 : 
99,440,03 : : 
90,434,03 : 
00, 220,93 : : 
90,523,03 : : 
00,587,03 : : 
00, 659, 03 : : 
00, 1397,03 : 
00, 1313,03 : 
00, 247, 93 : : 
09,262,93 : : 
09, 119,93 : : 
00, 147,03 : 
39,330,93 : : 
90, ]S5, 33 : : 
99, JS6,03 : : 
89, 1947,93 : 
90, 123,93 : : 
09,889,93 : : 
09, 175,93 : : 
99,784,93 : : 



GOTO 190 
GOTO 100 
GOTO 100 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 



100 
100 
100 
100 
199 
199 
190 
100 
: GOTO 100 
5 GOTO J00 
GOTO 100 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 



100 
100 
100 
100 
190 
190 



GOTO 100 
GOTO 109 
GOTO 190 
GOTO 109 
GOTO 199 



A3 



program 



Program UPDATED BY WILLIAM M. LUCID, Oriqinal by MBP -For use with 
the MBP Analog to Digital board for the fl Expansion System. 
This is a documentation program, suitability, use o-f this 
is at USER'S OWN RISK. 
ONLINE in-formation about MBP is available -from Jerry McClusky TIBBS<tm) 
bbs 300/1200 baud in Wichita, KS 316-681-3167. 

<^cc (+5 vdc) 



LM335 



> 10,000 ohm variable resistor 
< 

Adj \ > Output lOmV/ Kelvin 

>< A/D Channel (Pin 6) 

' > degree 
< 
> 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 

420 CALL CLEAR :: CALL SCREEN<8):: CALL INIT :: DEF SET=X+6*INT(X/1 ) : : DEF TIME 
=X-6*INT(X/16) : : DEF F= . 45783 1 3254 s: DIM WK*< 7) ,M0*< 1 2) 
430 FOR DW=1 TO 7 : ; READ WK$<DW):: NEXT DW 
440 FOR DM=1 TO 12 ;: READ MO*<DM>:: NEXT DM 
450 DATA, Sun, Mon,Tues,Wedaes,Thurs,Fri ,3atur 
460 DATA January, February, March, Apri 1 , May, June, July 
470 DATA August .September .October , November , December 
480 CALL PEEK<-31 158,X1 ,X2,D,X4,X5) : : X=D ': : D*=STR*<TIME) 



Ground 



A/D Ground <Pin 16) 



Program -for use with analog to digital board -for P-Box . 

Device used to sense temperature is described in National Semiconductors 
Linear Databook. One low cost devices, resistor and powered by a -five volt 
supply. LM 335 are NATIONAL'S semiconductors. Calibration may be needed. 
Each sensor is capable o-f being calibrated individually. 



L1 = INT< <32-LEN<Ll*) >/2) 



IF 



am' 



X3<10 THEN 
: IF HR>11 



Ll*="Today is "&WK*<X1 )&" day ' 
1985" 

490 L2=INT<<32-LEN<L2*))/2) 

Z=TC*F :: CALL PEEK< -31 1 64 ,X1 ,X2,X3 ,X4 ,X5) 
THEN SEC*="0"&SEC* 
X=X3 :: MIN$=STR*<TIME) 
X=X5 :: HR=TIME :: M*=" 
IF HR=0 THEN HR=12 
IF HR>12 THEN HR=HR-12 
HR*=STR* < HR ) : : T 1 *=HR*& 
DISPLAY AT<6,L1 > :L1* : : 
AB<1 1 ) ;T1* 

570 CALL PEEK(-3108S,TC) ; : CALL PEEK( -31 072 ,TC) 
580 DISPLAY AT( 17,7) : "Room Temperature" :: DISPLAY 
590 IF Xl+X3+X5=213 THEN 480 ELSE 500 



1 : X=X5 : : X5=TIME : : 
L2*=M0*<X5)&" "&D$&" 



500 
<10 

510 
520 
530 
540 
550 
560 



X=X1 



SEC*=STR*<TIME) 



IF XI 



MIN*="0"&:MIN* 
THEN M*=" pm" 



' : "&:MINf&" : "&SEC*&M* 
DISPLAY AT<8,L2) :L2*: 



!TAB< 10) J "The Time I 



AT< 19, 10) :USING F. 



:T 



AH 



* ♦ Topics - LA 99ers ♦ ♦ 
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POINT PLOTTING By Brian Richwine, 2107 La Rita Lane, Anderson, IN 4<40n 

Point Plotting runs on Extended Basic and draws a diagonal line <0,0 to 47,47) and a 
horizontal line (0,12 to 43,12) then erases the horizontal line. These subroutines (PI 
Unplot, 6R)(lines 30000 to 31030) allows the user to plot points. 

To initialize the graphics, call up subroutine ^GR'. This allows you to use the ^Plot' and 
^Unplot' subroutines in this -form: 

Cal 1 Plot(X,Y) J 
Call Unplot(X<Y) 
X-Range: (0-63) Y Range: (0-47) 

Program: 

10 CALL GR !s CALL CLEAR 

20 FOR A=0 TO 47 

30 CALL PLOT(A,A) 

40 NEXT A 

50 FOR A=0 TO <43 

6Q CALL PL0T(A,12) 

70 NEXT A 

80 FOR A=0 TO 63 

90 CALL LNPL0T(A,12) 

100 NEXT A 

30000 SUB PLOT(X,Y):: A=ir>rr(X/2+ 1 ) : : B=]NT(Y/2+l ) : : CALL GCHAR(B,A,C) : : IF C<128 THEN C=128 

30010 CALL HCHAR(B,A,128+(C-128)0R 2'^ (-( INT(X/2) <X/2)-2*( INT(Y/2) <Y/2)<Y/2) ) ) : : SUBEND 

30100 SUB UNPLOT(X,Y):: A=INT( INT(X/2+ 1 ) : : B=lNT(Y/2+ 1 ) : : CALL GCHAR(B,A,C) : : IF C< 128 THEN C=l 

28 

SOllO CALL HCHAR(B,A,128+((C-128)Ar'ID 1 5-(2*(-ir>IT(X/2)<X/2)-2«( lNT(Y/2)<Y/2) ) ) ) ) : : SUBEND 
31000 SUB GR 

31010 DATA FOO0,0F0O,FF0O,00FO,F0FO,0FF0,FFF0,O00F,FO0F,0FOF,FFOF,OOFF,FOFF,0FFF,FFFF 
31020 RESTORE 31010 ::CALL CHAR( 128, " " ) : : FOR A=0 TO 14 

31030 READ A* :: CALL CHAR(1294A,RPT*(SE6t(A*,l ,2) ,4)&RPT^(SEG*(A$,3,2) ,4)) : ; NEXT A :: SUBEND 



SINEWAUE By Brian Richwine, 2107 La Rita Lane, Anderson, IN 46011 

Sinewave runs on Extended -Basi c and will draw a sinewave until it runs out o-f characters to 
de-fine. The amount o-f de-finable characters can be increased by changing C and D in line 10 to a 
1 ower initial value. 

This program gives you the ability to plot graphs with X-Ranges o-f to 255 and Y-Ranges o^ 
to 191. The graphics are initialized on line 10. The values o-f X and Y given'to the 
subroutines in lines 500 to 550 must be integers. 

Program: 

10 D,C=91 :: FOR A=D TO 143 :: CALL CHAR(A,""):: NEXT A 
15 CALL CLEAR 

20 FOR X=0 TO 255 :: Y=]NT( S1N(X/40*PI )*384 1 00) 
30 GOSUB 500 
40 NEXT X 
50 STOP 

500 2=ir>IT((X+8)/8: : W=1NT( (Y48)/8) : : R=8«( (Y+8)/8-U)) + l :: S=7-8«( (X+8)/8-Z) : : CALL GCHAR(W,2,T) 
510 IF T<D THEN T=C :: C=C+1 :: IF C<143 THEN RETURN ELSE CALL HCHAR<W,2,T) 

520 CALL CHARPAT(T,A$) : : U=R«2-K S>3) : : B$=SE6*(At ,U, 1 ) : : V=(ASC(B-*)-48+(ASC(B*) >64)«7)0R(2^(S+(S 
>3)*4)) 

530 &$=CHR*(48+y-(U>9)*7) ! ! IF R=l A^>ID S)3 THEN A*=B$&SE61-(A*,2, 1 6)ELSE IF R=8 AND S<4 THEN A 
SEG(A$,1 ,15)&B* 

540 IF U>1 AND U<16 THEN A*=SEG*<A-J-, 1 ,U-1 )&B$&SEG*(A*,U+1 , 16) 
550 CALL CHAR(T,A*) : : RETURN 



THE ASSEMBLY LANGUAGE FORUM - STARTING OUT 



By Vic Kelson 



Hello, and wel cone to what I hope will becone a nontiii/ 
feature of the HUG newsletter. As a HUGger for the last 9 
nonths, I've noticed with disieay the lack of coordinated 
interest in assenbly language. I do bel ieve that there's 
interest, though, 'cause I've heard 'boy, I'd 1il(e to learn 
assetobly language, but I just never have' front several 
l|eop1e. Here cones your chance -- it's not that hard... 
really!!! 

About the 'forun' — as I said earlier, I want this to 
be a nonthly feature. Host inportantly, this is ALL OF OUR 
colunn. Please let ne know of any ideas, corrections, 
coments, conplaints, or IDIDlTs <ny word for the euphoric 
feeling when a sticky piece of code finally works) that you 
night have, either at the neetings, on the bulletin board, or 
through the nail. I an learning this stuff too, and I hope 
to help noderate an ongoing discussion about assenbly 
language in the HUG. I will also be holding get-togethers at 
the neetings, so that anybody who has never tried assenbly 
can learn fron those who have. Ue'll start real sinple, and 
gradually get nore advanced as tine goes by. 

Enough of that. The first featured assembly prograra in 
the forun is <ta-daaa!) a fairly fast screen dunp routine for 
TI BASIC. If you have a dot-natrix printer, you night have 
wanted to nake a copy of that neat picture you drew on your 
screen, but it's real hard on the TI. There are screen dunp 
utilities <cal1ab1e fron extended BASIC) on the narket, one 
of which I saw at the last neeting. I even wrote one in 
BASIC, and they have one thing in conaon: THEY ARE 
S — L — — UUU..... The routine in this article is a LOT 
faster. It is not ideal. In fact, I have an even better one 
already, but the purpose of the article is to show you how to 
speed up a BASIC progran using assenbly language. 

The problen with a BASIC screeiv dunp is naking the 
characters cone out right on the printer when you've got 
nifty redefined characters on the screen. You see, due to 
the difference between the tasks perfomed by the video 
generator in your console and the printer, the characters are 
described differently. For, say the letter A: 



7 8 8 8 8 7 
F 8 8 8 8 F 



<— Printer definition 



the dots are X .... X .. 82 \ 

zeroes, the X .... X .. 82 \ 

X's are ones X .... X . . 82 \ TI definition 

X X X X X X . . FC / see CALL CIWR in 

X .... X .. 82 /the BASIC nanual 

X....X.. 82 / 

Xt...X.t82/ 



The hex codes at the top are the codes that the printer 
wants to see in hi-res graphics node to nake the character. 
The codes at right are the codes which define the character 
in the TI. Problen: how do we nake the TI codes into printer 
codes?? 



The answer turns out to be sinple in assenbly language, 
because of an operation we can't do in BASIC, Pascal, FORTRAN... 
or nost other high level languages: the SHIR operation. Here's 
how it works for a 'left shift'; If you have the following byte 
(8 bits): 

1 1 1 (34 hex or 52 decinal, if 

you're keeping track) 
A left shift of 1 bit position will nove all the bits one 
space to the left, resulting in: 

1 1 1 (note that the rightaost bit 

is filled with a zero) 
(This is ^8 hex or 104 decinal, 2 tines the original value. 
Uill noving the bits 1 space to the right divide by 2?? Try it 
-- why does it work??) 

But how does this help us to change rows to colurans, you 
ask? Uell, you night have wondered what happens to the leftnost 
bit.. It falls out of the byte into a CPU flag, called the 
'carry bit*. Ue can test the carry bit in our assenbly progran, 
and put either a zero or one, according to the flag, into our 
result byte. 

Here's the algorithn for getting the leftnost colunn fron a 
set of 8 row definitions: (I know you're conpletely lost by now, 
hang on...) 

set the result byte to 0. 
for 1=1 to 8 

shift the result byte 1 bit to the left. 

get row defining byte nunber I fron the group of 8. 

shift the row defining byte 1 bit to the left. 

if a one fell out (carry bit set): 
add one to the result byte (put the '1' bit in there) 

put back the shifted version of the row defining byte, 
next I. 

save the result byte, (it now contains the leftnost colunn) 

Easy, huh?? For an exercise, draw the character definition 
for the letter A shown earlier on paper, and do the above 
algorithn 8 tines. REMEMBER to put the shifted defining bytes 
back, so that if you loop through 8 tines, the 8 result bytes 
will be printer definitions shown above. It really IS easy, I 
pronise. 

The algorithn I've just shown is actually a snail part of 
the code for the assenbly language progran segnent for our 
routine (shown below). The rest is Just telling the conputer 
how to talk to BASIC. Now, about the actual routine: 

The screen nenory for BASIC is set up as 768 character 
positions (nunbered to 767), 24 rows of 32 columns. Each 
nenory cell in screen nenory holds a charcter code, which tells 
the ccnputer which set of defining rows to use to draw the 
character. The assenbly routine given below returns a string 
variable 8 characters long which contains the printer definition 
for a character on the screen. 



^1 




THE ASSEMBLY LANGUAGE FORUM, cont'd 
Bf^IC USA6E: 

Before using the PRTCHR routine in your TI BASIC 
progran, you must load it into expansion nenory by executing 
the statements: 

CALL INIT to initialize nenory 
CALL LOADCDSKl.BSCSUP') to get the support routines 
CALL LOADCDSKl. PRTCHR') to load out routine 
AM of the required files are supplied on the 
distribution disk (see belou). 

The BASIC statenent which accesses our routine is: 

nnn CALL LINKCPRTCHR',I,A$) 

Uhere I is the character number <0 to 767) to get, 
And A$ is the returned string. The string variable 
can be sent to the printer in graphics node. 

You will be on your own for the BASIC progran, depending 
on your printer. In the listings portion of the article, I 
have included a version for ny Genini-lOX printer. This 
routine will dunp a screen of data, EXACTLY as it appears on 
the screen (see deno of use with ny video version of the 
codebreaker progran). The dunp will take about 2 ninutes, 
cotpared to 15-20 (or nore) ninutes for a BASIC or Extended 
BASIC screen dunper. 

I realize that this is a pretty heavy first example of 
assenbly language, but the idea is to show what kind of 
perfornance inprovement can be gained by even a short 
routine, like this one. I hope I've whetted your appetite. 

For all of these articles, the text of the article, 
along with source code of assembly and BASIC (if any) 
prograns will be available in nachine readable forn. No, 
Virginia, I don't expect you to type then in yourself. 
Whenever possible, I will try to nake extended BASIC versions 
available on disk, and Mini Memory versions on cassette. 
Copies will cost you $5.00 if you send me a disk or cassette, 
f7.50 if you don't supply the di§k, i6M if you don't supply 
the cassette. You can get the current month's stuff at the 
meeting, or send your check to me at: 
Vic Kelson 
3284 Peggy Lane 
Terre Haute, IN 47805 
Hone phone: (812)4(S(S-4031 (after 5pn) 
If you want a book on TI assembly language, I suggest: 
'Introduction to Assenbly Language for the TI Hone 
Computer', by Ralph Holesworth 

and 

'Fundamentals of ll-99/V{ Assembly Language', by 
M. S. Morley. 

My personal preference '(for what it's worth) is the 
second book. It starts out real simply, and has zillions of 
(well, 47) good examples. The TI Editi or/Assembler manual is 
also a good idea. 

Uell, that's all for our first meeting. I hope to see 
at least 4 or 5 (or more) people at the meeting in December. 
I'll demonstrate the screen dumper, and we'll start frcn 
scratch on learning TI-99/4A assembly language. I promise 
that it'll be real fundamental. 



i 

FLWDAMENTALS 
OF 

TI-99/4A ASSEMBLY LAr>l6LIA6E 



By Bill Jones 

Tab Books r-ece-ritly introduce-d a new 
book for the TI : FUNDAMEhfTALS OF Tr-99/4A 
ASSEMBLY LAt^GUAGE by M. S. Morley. 

H you've been looking for a 
s-upplement to the Editor/Assembler 
manual, be sure to take a look at this 
one. FLNDAMENTALS was. wr i tten using the 
classic approach to teaching assembly, 
but kept in mind the fact that most 
readers hage no technical background in 
micro's. 

Chapter one explains what assembly 
language is, chapter two details the 4/A, 
and the rest of the book is devoted to 
progressively harder exercizes that 
introduce each new instruction in the 
9900's instruction set. 

This is the best book I have seen yet 
•for those of us who are exploring the 
potential of our machines using its own 
language. This book lists for ^11.50 and 
should be available at Dal tons or 
Waldens. On a scale of one to ten, I 
rate this book as an eight. 




Next nonth: Another utility to be used with TI BASIC. 



LIBRARY BITS . 
by Dennis Sherfy 



If you have a full system, you ought to 
have DMiaaa. This is an assembly 
language program which will run from 
Extended Basic with the included "LOAD" 
program. 

I have held off writing about DM1000 for 
several months because I have heard that 
there are bugs in the program. I think 
that some of them have been corrected. 
I'm told that one verified bug is that 
it will not properly function if you 
have a very large number of programs on 
a single disk. There may be other 
problems, but I am not aware of them. 
Now, the program. 

DM1000 stands for Disk Manager 1000. 
The DM1000 disk contains two Display 
Variable 80 files which can be printed 
with TI-WRITER. These are the detailed 
instructions. The files are named 
DM1000DOC! and DM1000DOC2. DM1000 
performs the same functions as Disk 
Manager cartridge, but it has at least 
two additional functions that are very 
useful 1. 

First, if you have deleted a file from a 
disk, but have not written over that 
file, you may recover it. When you 
delete a file, it is removed from the 
disk's directory, but the file still 
remains on the disk. The disk directory 
says that the sectors " containing the 
program are available, and the file may 
be erased when you save the next 
program. If the file has not been 
written over by another program, you may 
salvage it with the "Recover File" 
option. 

The second unique feature of DMi000 is 
it's ability to "sweep" a disk. This 
means that the disk's directory is wiped 
clean, and the disk can be used like a 
newly formatted disk. I used to 
reformat disks that I wanted to clear. 
Now I "sweep" them. Sweeping takes a 
fraction of the time it takes to 
reformat a disk. 

While you can perform this next option 
with Disk Manager in two sweeps, DM1000 
can do it in one step. This option is 



called "Move". When a file is copied 
onto a new disk, it is deleted from the 
orginial disk. 

DMi000 has an option to copy a whole 
disk, in either sector by sector mode, 
or in "bit map" mode. In sector by 
sector mode, each sector on a disk is 
reproduced on the copy disk. In the 
"bit map" mode, only those sectors which 
are used will be copied. You can copy 
an entire disk with DM1000 in no more 
than 4 passes. 

Other functions include adding or 
deleting file- protectionjadding or 
deleting disk protection; copying, 
renaming, deleting files, renaming, 
initializing, cataloging disks. 

As far as I know, this program is 

available without charge. It was 

created by Bruce Caron of the Ottawa, 
Ont. TI-99/4A User's Group. 



SAVE $*$ SAVE $$$ SAVE $$$ SAVE 
SAVE $$$ SAVE $$$ SAVE $$$ SAVE 

The Indianapolis Amateur Radio 
Convention ( Hamfest ) on Saturday July 
12 and Sunday July 13 will feature the 
largest market of new and used 
electronic equipment including computer 
equipment and amateur radio equipment. 
The commercial building and the 4 flea 
market buildings will be open both days. 
The Hamfest will be at the Marion County 
Fairgrounds in S.E. Marion County on 
Troy avenue. Take the Southeastern 
Avenue exit from I 465 and follow the 
signs to the Marion Co. Fairgrounds. 
The Hamfest will start at 6 am on 
Saturday July 12 and close for the night 
at 5 pm. The Hamfest will reopen at Sam 
on Sunday and end at 4 pm on Sunday. 
There will be technical forums on 
Sunday. To reserve a place in the flea 
market buildings or in the commercial 
buildings, write the Indianapolis 
Hamfest, P.O. Box 11776, Indianapolis, 
IN 46201. See you at the Hamfest. 
Malcolm Mall ette, WA9BVS 



THE ASSEMBLY LANGUAGE FORlfil, cont'd 



SCREB^ DUHP ROUTINE 



m, U/H/84 

.'C 



TITL '» MST SCREEN DUMP FOR EttSIC »' 
BY VICTOR A. KELSON 6 NOVmSER 1?84 



DEF PRTCHR 



THE SUSR NAME 



CALLIN6 SEQi^CE: 

CALL LINK ('PRTCHR',INDX,S7R$) 



INDX 



(MESER) NUMBER OF THE CWIWaER TO CONVERT TO PRINTER imi 
(0 TO 767) THE BASIC PROGfWI MUST fWNDLE Tffi ROU.COL COWERSim! 
STR» - (STRING) THE PRINTER imSE OF THE CKftRfMHER IN THE INOX POSITION 



REF WBR,WBU,VSBR,VSeW 
REF XMLLNK,NWREF,STRAS6,ERR 

SYSTEM EQUATES 

FAC EOU >834^ 




MY BUFFERS 



19300 REM 
lOOlO FSi 

10029 OPEN «99 PI O.CR", OUTPUT, DISPLAY 

10030 RBi DE?10 FOR GEMlNI-lOX PRINTER 

10049 REM SET UP CHAR POINTER 

10050 PSCi>=0 

100(<0 RSI SETUP 1/3' LINEFEEDS 
13070 PRW 81:CHR«(27)iCHR$(<?8) 
10080 RB< im THE UTILITIES 
10090 CALL INIT 

lOlDO CALL LmDCDSKl.BSCSUP'.'DSKl. PRTCHR") 

10110 REN LOO? (JJ THE 24 ROUS 

10120 FOR ISCD=1 TO 24 

10130 REM SET UP GRAPHICS MODE 

10140 PRINT Sl!CHR$(27)iCHR«(75):CHR$(0);CHR$(l)5 

10150 RBI LOOP m CHARS IN ROJ (32) 

lOleO RBI GET THE PRINTER VERSICH FROM OUR UTILITY 

10170 REM ANO PRINT THEM 0^ THE PJilNTER 

10180 FOR MO=l TO 32 

10190 CALL L1NK( ' PRTCHR' ,PSCO,ASCDI) 

10200 PRINT «1:ASCD«! 

10210 PSCD=PSCD+1 

10220 NEXT JSCO 

10230 REM SEND A CR-LF TO THE PRIffTER 
10240 PRir^T Sl!CHR*(13);CHRJ(10): 
10250 NDa ISCD 
10260 CLOSE 899 
10270 RETURN 



THIS S£&©fT OF CCOE SHinS THE BYTES IN THE BUFFERTO THE 



LEFT m CATCHES Ti€ CfSm BITS IN RO. 
OUTPUT BUFFER 



RO IS THEN STORED IN 



CKRBFR BSS )08 


THE cm DEFN 


f 








STRBFR DATA )0800 


THE STRING LBJGTH 


CUTLP 


CLR 


RO 


CLEAR THE RESULT BYTE 


BSS >08 


THE PRINTER IMGE BUFFER 




LI 


R],8 


LOOP COlfffER 








LI 


R3,CHR5FS 


SUFFER PTR 


« HERE UE 60! FIRST, GET THE mi POSITION 




CLR 


R4 


FOR INSUa^CE 






LOOP 


SLA 


RO,I 


SHIFT mmR TO LER 


PRTCHR CLR RO 


ARRAY COUNT 




MWB 




GET A BYTE FROM THE BUFFER 


LI Rl,l 


FIRST ARGUMBIT 




SLA 


R4,l 


SHIFT THE BYTE... 


BLUP a^REF 


GET IT 




vS-JC 


SKI PIT 


...DID A -r FALL OUT? 


< 






IHC 


RQ 


YES. PUT IT INTO THE RESULT BYTE 


BLUP aXMLLNK 


COWERT TO INTEGER... 


SXIPIT 


\m 


R4,«83+ 


PUT THE SHIFTED BYTE BACK... 


DATA 11200 


• • • 




DEC 


Rl 


AND GO BACK TO GET <«0TKER, 


MOV 3FAC,R0 


IS IT OKAY?? 10,767] 






LOOP 


IfiTIL TK£ LOOP COtf<TER GOES TO ZERO 


CI R0,747 




9 








JH ERROR 


OUT OF Rj^E. TELL BASIC 




SLA 


R8,8 


PUT CH/TPUT BYTE IN MSB OF RO 


« 






HOVB 


R0,sR5+ 


PUT THE RESULT BYTE INTO THE BUFFER 


» GET THE Tl CHWMCTER DEFINITICN AND PITT IT IN MY BUFFER 




DEC 


U 


m LOGP Qi THE fflUBER OF OUTPUT BYTES 


i 






3iE 


CUTLP 




CLR Rl 


HAKE THE LS8 IN Rl ZERO 


i 








BLUP ^SBR 


GET THE CWR NIHBER 


* NOU, PUT Ti-i ^n?\n 


SUFFER INTO THE fii^SIC STRING 


SRL Rl,8 




> 








SLA Rl,3 


MULTIPLY BY B 


RETSN 


CIR 


f?9 


ARS^Y PTR 


* 






LI 




ARBUH^fT Nl«BER 


» Rl NOU POINTS TO CHAR PATTED IN VDP ^ 




LI 


P>2,2Ti:SFR 


THE STRING BUFFER ADDR 


< 






BLW? bSTRASG 


TKATS ALL. 


MOV RI.RO 


MOVE TO RO 




RT 






U Rl.CHRBFR 


POINTER TO mi BUFFER 


» 






LI R2,8 


Nll^R OF BYTES 


i ERROR HfeNDLIHS RCUTI}<£ 


6UUP 2W8R 


GET THE mR PATTERN 


i 








i 




ERROR 


LI 


RQ.)16gO 




* NOU.COfWERT THE CmiMCTER TO PRINTER IMAGE 

JC 




BLUP zm 




LI R5,STRBFR+1 


SET UP THE OUTPUT PTR 


i 








LI R6,8 


m THE OUTER LOOP COUNT 




e^D 
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THE ASSEMBLY LANGUAGE FORUM - NUMBERS, NUMBERS, NUMBERS 



by 'v' i c Ke 1 son 



Well, I'n back iron a uonder^u] week in sunny Cancun, Mexico, 
where I didn't even once tit ink about conputers — it uas 
great. As proiised, though, I uill nake these articles 
nonthlx iron new on. 

For the next several nonths, I will use the colunn to present 
^one 0^ the basic concepts o^ assenbly language (iron now on, 
referred to as AL) programing. This infornation will be 
slanted toward the TMS9900, but is mostly applicable to other 
machines. H you're a BASIC, FORTH, or other language user, 
don't worry, these articles are intended ior beginners, and 
even BASIC users can apply sone oi this stuff. 

I intend to give a discussion at the meeting each month to 
cover the material in the newsletter article. This will give 
you a chance to ask questions, and a chance to get a more 
complete discussion of the material. Hope to see you there. 

THIS HCNTH'S TOPIC: Number Representation and Number Bases 

In order to learn AL, (or really, for almost any language) 
you must first understand the way a computer looks at 
numbers. This is the topic for this article. I'm sure that 
you're all fanilar with the binary system to some degree, so 
I won't talk much about decimal-binary conversions. 

We'll start out with a look at the various units of memory. 
The smallest quantity of memory that we can deal with is the 
'bit'. The word 'bit' is a contraction of 'binary digit'. A 
single bit is either a 1 or a zero. The TI has several 
instructions which allow you to deal with individual bits. 

The second-unit of menory in the coiputer is called the 
'byte'. A byte is a group of eight bits, and is the basic 
unit of menory used by computers such as the Ccmodore, 
Apple, and Z-80 systens. 

The TI can deal with single bytes, but the basic unit of 
meaory on the 9900 is a 14-bit 'word'. A word can be 
pictured like this: 



MSB 



LSB 



d 1 1 1 1 1 1 1 1 

high order byte low order byte 

This word contains the hex value 632D, or 25,389 in decimal. 
The terms MSB and LSB stand for 'most significant bit' and 
'least significant bit'. The advantage of a 14-bit word over 
an B-bit word is that you can handle larger numbers. An 
8-bit word can handle values from to 255, while a 16-bit 
word can hold values from to 65,535. 

BINMY A8IT}I€TIC 

Arithmetic is very simple with binary numbers. There are 
only 2 binary digits (0 and 1), so here are the addition 
rules: 





il 







+1 
1 



1 1 
+0 +i 

1 10 



Notice that in the last case, a '1' is carried into the next 
higher digit. This is handled Just like decimal addition: 





1 


11 


111 


101 


101 


101 


101 


111 


111 


111 


111 





00 


100 


1100 



step 1 step 2 step 3 step 4 

You can see the carries in the addition problem above. One 
problem arises, though. A computer's word is 16 bits wide. 
Uhat happens in this case: 

111 nil 1 1 (carries) 
0110110110001101 
♦ 1110101101001001 
10101100011010110 



Ue have a 17-bit long result!! In this situation, the carried 
bit (pointed to by the arrow) is thrown away (into the 'bit 
bucket') and not included in the sum: 

111 1111 1 1 (carries) 
0110110110001101 
♦ 1110101101001001 

0101100011010110 (result) 

1 (bit bucket) 

Ue'11 get into the actual identity of the bit bucket next month. 
Binary subtraction has similar rules: 



10 
1 



1 1 

i d d 
1 



When handling larger numbers, though, for example, two 16- bit 
numbers, you must borrow, just like decimal subtraction: 

Sample problem; 7-8=-l 

1111111111111 (borrows) 
''0000000000000111 
- 0000000000001000 
1111111111111111 (16-bit result) 

You see, the arrow here points to a borrow from the 17th bit, 
which doesn't exist. In this case, the 16-bit result is 
returned, and the extra borrow falls into the bit bucket. 
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THE ASSEMBLY LANGUA(^E FORUM, cont'd. 



TWO'S CDHPLB1ENT NUMBERS 

The last example raised an inportant question: Uhat do 

all ti>ose "r's mean?? It seeiss strange to think that 

7 minus 8 night be 65,535, doesn't it? 

This probleis is actually handled pretty sireply. H we 
allow numbers to be either positive OR negative, then 
it seens obvious front the exanple that the number 
represented here is really -1. How can we generalize 
this result for all cases, and how do we represent 
negative numbers? 

To allow for the use of positive and negative numbers 
(signed numbers), the TI (and most other machines) use 
a technique called 'two's complement'. Here's how it 
wori(s: 

1) The MSB (most significant bit becones the "sign 
bit'. If MS&=0, then the number is positive. If the 
NSB=1, then the number is negative. 

2) To negate (change the sign of) a number, first 
invert all the bits in the number (form the logical 
or one's conplenent), and then add 1. 

Does it really work?? Let's try it: 

Exaiple: Negate the ninber 27 to get the binary two's 
complement, and then add it to 27 to check and see if 
it adds up to zero. 

27 decima1=0OD00OD0OOO11011 

Inverting the bits., (take one's complement) 

one's comp==lH1111111100100 

Finally, add 1 to the result to obtain two's 
conplenent negative 

two's conp^llllIllllilOOlOl (-27 decimal) 

Now, add 27 to this... 

lllllillllllllli (carries) 
MlHllinUOOlOl 
* 0000000000011011 
0000000000000000 (l^bit result=0) 

1 (carry into bit bucket) 

It works! You should notice two important properties 
of two's conplement numbers: 

1) In two's conplement nunbers, the MSB is the sign 
bit. For positive nunbers, the MSB is zero; for 
negative nunbers, it is one. 

2) Regardless of the sign of the nunber (positive or 
negative), the LS8 tells whether the number is even 
or odd. This property can be used in your prograns 
to make the even/odd test. Simply test the LSB 
(we'll do it in a later lesson) - even numbers have 
a zero in the LSB; odd nunbers have a one. r> 



USE OF SIGNED UNSIGNED NUMBERS 

On the TI, in AL, it is possible to treat any 16-bit quantity as either 
signed (positive or negative 15 bit numbers, plus a sign bit) or 
unsigned (16 bit positive numbers). Sone high level languages (FORTH, 
for exanple) also allow both signed and unsigned operations on 16 bit 
data. It is important to remember that the range of signed numbers is 
[-32766,32767], while the unsigned range is [ 0,655351. 

Challenge: Uhat decimal number does the following binary number 
represent?? (hint: negate it) 

10000000000000000 (16 bit word) 

HE)(ADECimL NOTATION 

I hope that you've tried doing some binary arithmetic on your own, 
particularly negating and subtracting nunbers (have you tried negating 
and adding to see if the result is the sane as subtracting??). If you 
have, you've probably found that binary nunbers are a real hassle. 
That's why we use hexadecinal notation. Uhy hexadecinal instead of 
decinal?? Look at the following table: 



binary 


hex 


binary 


hex 


0000 





1000 


8 


0001 


1 


1011 


9 


0010 


2 


1010 


A 


0011 


3 


1011 


B 


0100 


4 


1100 


C 


0101 


5 


1101 


D 


0110 


6 


1110 


E 


0111 


7 


nil 


F 



Using four bits, it is possible to forn nunbers in the range [0,15}. 
By using a nunber systen with 16 digits, we can nap the nunbers frss 
b ary to hex easily; 

Exanple: Convert to hex: 

1001 1100 0011 0101 binary 

9 C 3 5 hex 

This is done by looking up the four bit sections in the table. Try 
converting the binary to decinal - it's a lot harder, because you 
handle each bit separately. Hex to decinal is nuch easier. By the 
way, you can do the sane mapping with octal (base 8) to binary. Hex is 
nore convenient because there are exactly 16/4=4 hex digits per word. 

IN CONaUSION 

I'm sure that nany readers have seen most of this stuff before, but in 
order to introduce nore users to AL, this is a necessary step. If you 
want to learn AL, (or advanced FORTH) or just to improve your other 
programing, you should practice, and becone comfortable with the use 
of decinal, binary and hexadecinal nunbers. If you have any questions, 
ask ne or any of the other assembly or FORTH users at the meeting. I'm 
sure anyone would be happy to help. 

Next nonth, I'll continue with the AL tutorial, by introducing the 
THS99dO's registers and flags. SEE YOU AT THE MEETING!! Vic... 



THE ASSEMBLY LANGUAGE TUTORIAL - FLAGS AND REGISTERS 



by Vic Kelson 



Last nonth, ue discussed the various nunber representations 
that ue use in AL programing. This nonth, we'll go one 
step further, by exanining the flags and registers of the 

CPU REGISTERS 

The TMS9900 registers can be represented like this: 

PCdddddddddddddddd 
UPdddddddddddddddd 
ST L>A>EQC OVOPX .IMT mSK. 

(the d's are binary digits) 

All of the 9900'5 registers are 1^ bits wide. They all 
contain information which is important to the AL programier: 

PC - The 'program counter". PC contains the 'address', 
that is, the position in memory, of the next instruction to 
be executed. 

WP - The 'workspace pointer'. UP contains the address of 
a K-ttord (remember, a word is 16 bits) block of memory, 
called the 'workspace'. These 16 words of memory are called 
'workspace registers' - we'll discuss them in a minute. 

ST - The 'status register'. ST contains 'flags' (single 
bits which we can use to control the execution of our 
program. 

These three registers are the only registers which are 
actually on the TMS9900 chip - a rather unusual way for a 
microccnputer to be set up. 

UORKSMCE REGISTERS 

Here is a picture which describes what the UP register 
actually does: 



UP contains a value which is the address in memory of the block of 
16 "workspace registers'. The AL programmer can use these 
workspace registers in a lot of very special ways. This is the 
largest difference between the THS9900 and other micros, such as 
the 6502, 6800, and Z-80. Confused? Ue'll discuss this further in 
next month's article. 

THE STATUS REGISTER AND FLAGS 

I mentioned the ST register and its contents briefly above. Here 
is a more detailed discussion. 

The 16-bit statuus register (ST) is broken up into the followng 
pieces; 





BIT # 




L) 





Logical greater than 


EQ 


2 


Equal 


C 


3 


Carry 




4 


Overflow 


OP 


5 


Odd Parity 


X 


6 


Extended Operation 




7-11 


Reserved 


INT. 


12-15 


Interrupt Mask 


msK 





These are the meanings and uses of the flags: 



This flag is used to make logical (or unsigned) conparisons of two 
16-bit nifflbers. For example, if you compared the following two 
binary numbers: 

0100 1101 toil 0010 = 4DB2 hex 
0011 1110 1111 0000 = 3EF0 

The first number is larger than the second, and the 9900 will set 
(make into a 1) the L) flag. 
Comparing these numbers: 



L) - LOGICAL GR&^TER TWN 



Contents of UP — 



MEMORY 
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1100 0000 0111 1111 = C07F 
0010 0000 0111 nil - 207F 



will also set the L) flag, 
larger than 207F. 



because the 16-bit number C07F 



IS 



A) - ARlTmETIC GRBiTER IWH 

This flag returns the result of comparing 16-bit signed numbers. 
If you remember from last month, twos-complement negative numbers 
have the MSB set to 1. In the first example (above) the A) bit 
would have been set to 1, because the 15-bit value 4082 is greater 
than the 15-bit value 3EF0 (the sign bit is 0, so they're positive 
numbers) . 

In the second example (above), the first number, C07F, is negative 
(the sign bit is 1). In two's complement notation, C07F is LESS 
THAN 207F!! This is the difference between the L) and A) ^lags, 
and our first glimpse of the difference that the progranner sees 
in unsioned and sioned nunh»r«. 



TIE ASSBfiLY UIN8UASE TUTORIM., coat'd 

It won't be the last tine we see this... 
Ea - EQUAL FLAG 

This one is easy. The TMS9900 sets this flag to one if the 
result of a conparison is that the nunbers are equal, and 
if they're not. 

The L>, A), and EQ flags are also set after aritlaetic 
operations, by comparing the result to zero. This is a 
useful feature. 

C - CARRY FLAG 

Renenber the "bit bucket' last month?? Uell here it is. 
Uhenever an addition or subtraction is performed, this flag 
is set to 1 or zero, according to the value in that 'bit 
bucket". Look o«er last month's examples, and set the C 
flags fo them. 

01 - MRFLDU Fli^ 

This flag is used when doing twos-cmplenent arithmetic. The 
flag is set to one if the sign bit (the MSB) of the result of 
an addition is different from the sign bit of the two 
operands (note that this is only done if the sign bits of the 
two operands are the same). Example: 



0111 0000 0000 0000 = 7000 hex 
Mill 0000 OQOO 0000 = 7000 
1110 0000 0000 0000 = EOOO 



If the numbers are twos-complement, this means that we added 
two positive numbers and got a negative!! This sets th OV 
flag. 

The Oy flag is also affected by subtraction, multiplication, 
and division operations. 1 recomend that you try to figure 
out what happens for these cases, and look it up to see if 
you're right. We'll talk about it at the meeting. 

X - E)CTENOED OPEWTKN 

The X flag is set if the processor is executing an extended 
operation. Extended operations are beyond the scope of the 
tutorial, and will not be used here. 

INTERRUPT fm 

The interrupt mask is used to tell the processor how to react 
if it is interrupted. Again, this is beyond the scope of the 
tutorial. 

IN CONCLUSION 

I hope that this article gets you started on the way to 
understanding the flags and registers of the TMS9900. I 
strongly recommend that you read sections 3.1 through 3.1.3.8 
(pages 39-44) of the TI Editor/Assembler manual. 

Next month, we'll discuss the THS9900's addressing 
nodes, and talk about how to move numbers around. Ue'll even 
write a small AL program! 

"The "P'P^S ! 



Remember all of the rumors about a "new" 
computer TI was developing? Inside this 
Newsletter, read "At the Faire", which 
appeared in the December, 1984 issue of 
MICROpendi um. Below is a picture of "The one 
that got away." 




The one that got away 

Pictured above is the TI99/8 home computer. Only 250 of the 64K RAM 
machines were produced before Texas Instruments made the decision to 
leave the home computer market. The machine features a built-in p-Code 
system. 64K of CPU RAM and 16K of VDP RAM. Program modules are 
loaded vertically into the top of the machine.(Photos courtesy of Dave 
Wai<ely) (c^r^^jo O^&r-i (yrouf) 



KIBBIT INSTRUCTIONS 

By Greg Goodwin 

Kibbit is a TI FORTH graphics program 
which draws -from the keyboard or joysticks. 
Please note; this is a revised version the 
Kibbit program which is saved on the FORTH 
DEMO disk in the HUGger Library. 

THE KEY FUNCTIONS OF KIBBIT ARE: 

CR; Clears the current work screen. 
Space Bars Aborts program. 

Fire Button <or "Q"): Toggles Graphics modes. 

te will appear on the tip of the 
The letter is the current mode. 



0: 
U: 
T; 



A spr i 
1 i ne . 
Draw 
Undraw 
Dtog <H 



line undrawn else draw one.) 



Either joystick or keys may be used in 
drawing (make sure the alpha lock is up!). 

H you have any problems getting this 
version to run, leave me a message on the 
HUGbbs or thru the Users Group P.O. Box (also 
let me know what you think of it). A future 
version will include the saving of screens, 
and mixing with user programs. 

Forth . . . .Ur i te Greg 



UORDSEARCH 1 

By Bill Cagle 

I 

COMPUTERANR JCL0SEW2NAFMQSDY i 
lUAPIMBJGKJNLTCXFFCPCDGOUIxi 
YP I FHRFOCLUY I BYTUPN I L JEXXSE 

EMMMWI SDGITPXYQCWERWSSYFBKZ 
PTLX JUEEFZ GRU I EYUYXMOAUQYDN 
XCUv'BSTUGKI I ECUSXOW-ITI BNPRB 
TJDGTAEEYGWN'v'EMULATORQRLTIN 
DZ FHECSt^UHKTNBWDWQWBLUB JKUE 
RM2 KPRMBQ JLETRAUMUSHOR JLYEZ 
ANB I H I CFAQWH I TTUPTUOUYFUSN 
NTULUJAUHHQWXBNUKSAPWMXWPW 
DBFKSLLBBB0YSYHKKD6PQCTXENN 
OPQASR I KYOENBYDHRVZKCYEWRRP 
MOMKBAIMTGFZDJGCOMPUTERDRPM 
I EYHOKLMEWNWX^^FFOLNCAMGI CRj 
2RJMCKLLSFI PEUGQAWYSREIMZLD' 
ECUI LAYVCLUFBTUFHAMUNCNBXYN 
ZDMMGi^'USI CZATAAYTAVUCRAGTBM 
KJOASSEMBLYJKKYDQQACNSLJUTR 
A^^LNQXTL I HAYJQBLPUCHUKGCKEO 
BN I NTERNALOC JUFMBUK*^ATB I H^^K 
XE I BZ Y JDNE I NCWSI CLEARMHB6TU 
HESQMU2DKGPPCTI6UZXRXF»v^HUEC 
ECGM^JROTCESSIAPPENDWQWCAGLE 



yORI)_U_ST 
TI3ERCUS 
CAGLE 
BYTES 
SAVE 
DISKDRIVc 
INPUT 
CCtiPUTER 
SECTOR 
RANDOKIZk 
PRINT 
FOR 
NEXT 
TERMINAL 
ASSEMBLY 
BlULATC'ft 
BASIC 
GOSUB 
CLEAF 
CLOSE 
OUTPUT 
INTERNAL. 
UPDATE 
APPEND 
N!X1 



KIBBIT RB^ISED 

By Greq Goodwin 



(KIBBIT by G. Goodwin) 

50 k,'ARIABLE JOY 50 UARIABLE JRT VARIABLE SELECT 
HEX 3800 SSDT : INIT_TURTLE 
8050 2828 2828 1000 8A SPCHAR 
8040 2424 2424 1800 8B SPCHAR 

8040 201C 0808 0800 8C SPCHAR 22 22 5 8C 1 SPRITE 
DECIMAL : KIBBIT INIT_TURTLE GRAPHICS2 BEGIN 
1 JOYST CASE 04 OF -1 JOY +! ENDOF 252 OF 1 JOY +' 



CASE 
18 = 

OF 

1 OF UNDRAW 13? 

2 OF DTOG 140 1 

3 OF SELECT ' 
JRT 3 JOY 3 DOT 
? KEY 32 = UNTIL 



04 OF 1 JRT +! ENDOF 252 OF -1 JRT +! ENDOF ENDCASE 
IF 1 SELECT +1 END IF SELECT S CASE 
DRAW 138 1 SPRPAT ENDOF 

1 SPRPAT ENDOF 
SPRPAT ENDOF 
ENDOF ENDCASE JRT 2 JOY 
?KEY 13 = IF GRAPHICS 2 
TEXT ; 



END OF ENDCASE 



3 1 SPRPUT 
END IF 



KIBBIT :S 



3S- 



— NEW FORTH — 



LOADS FROM EXTENDED BASIC AND OTHER CARTRIGES! 

by Bill Jones 

Most HUGgeps know Greg Goodwin as something o-f a patriarch to the 
Hoosier Users Group's FORTH interest group. He is also a professional 
programmer who spends his days writing assembly programs on the 'big 
boys' and comes home at night to relax by writing programs in FORTH on 
his TI. His popular KIBBIT graphics program in FORTH is well known 
among us and his programs -frequently appear on the bulletin board. 

Greg didn't stop there though. He wasn't satis-fied with programming in 
a language that only people with the Editor/Assembler <or the new 
CorComp disk controller) could use. He picked the FORTH source code 
apart and came up with the modifications that made it possible to load 
the language through several TI cartriges. Greg has been able to make 
FORTH load -from Extended BASIC and TI Uriter. Now anyone with a disk 
drive and memory expansion can use FORTH even if they only have one of 
these cartriges! 

I'm told that two different modified versions are used, one that loads 
from Corcomp, Minimem and the Editor/Assembler, and one that loads from 
the Extended BASIC and Tl-Writer cartriges. With Extended BASIC, 
loading is done the same way as any other assembly language program 
file, then you CALL LINK and you're in FORTH! Imagine that as an 
autoload program. Greg tricked Tl-Writer into thinking that FORTH is 
one of its utility programs. 

Since it would be nice to combine BASIC and FORTH programs on our 
bulletin board, I asked if it would be possible to switch back and 
forth between the two languages. He said although he hadn't tried it 
yet, a routine s.imilar to FORTH's MON word could possibly cold-start 
Extended BASIC. One hitch to that is that both BASIC and FORTH expect 
to load from disk 1. 

Greg decided to release this version of FORTH to the users groups, and 
says that the Hoosier Users Group may send one copy of the disk to each 
group that asks, for *5. He cautions that he is not giving it over for 
public domain, but sends it to each group along with a limited license 
to produce copies for members of that group. It contains the FORTH 
that TI released to public domain with some exceptions. It loads with 
other cartriges and it has a fix for a bug in the graphics mode that TI 
never fixed. He also added routines to allow speech and sound. 

This new addition to our library will open FORTH up to a second 
generation of TI FORTH users who, I'm sure, will find FORTH as 
fascinating and useful as I and many other FORTH enthusiasts already 
have. Thanks Greg! 

This disk is, of course, free for the copying to active HUG members; 
other clubs wanting a copy may send *5 to the Hoosier Users Group at 
the address below. 

HOOSIER USERS GROUP DISK 

po BOX fgamm zzzz 

INDIANAPOLIS, IN 4s^Btff 



THE FORTH PAGE 



by Greg Goodwin 



This month: A catalog program, 



^des i re a pr i n t 
this program. 
Enjoy ! 



This -^f fif"^ 



This program uses 3 screens and the type o-f -formating used will allow -for a 
print out to a printer if desired. To execute the Program just type; CATALOG 
out type: SUCH CATALOG UNSWCH. The Float utilitys must be loaded' 
And if a print-out is desired then the Print utilitv must be 

/ec^ u.)'th Tx Wf}hr j:J»i 

-pa //anyj, 

< SCREEN ttl by G. Goodwin Catalog 

UOCABULARY DSR IMMEDIATE 
DSR DEFINITIONS 
BASE->R HEX 
VARIABLE =TYPE= 

[BUF] 2.6 ALLOT 
[BUF] 1400 FILE DIRECT 

< 



regul ar 
I i you 
to run 
1 oaded . 

^9 



9/24/84) 

( SCREEN #1 
PASS 3 10 + 



Catalog 9/24/84) 
[BUF] 1400 FILE.DIRECT 



VARIABLE 
PABS(5lO + 
: OPEN 

DIRECT 

SET-PAB 

INTRNL 

RLTU 

INPT 

F-D" DSKl 
OPN ; 
R->BASE - 



SCREEN #2 

!LEN! 2 SPACES SEC 3 . ; 
AU CR ." SEC= " TSEC 3 . 
'■ AUAI=" SEC 3 . CR CR 
FILE-TYPE =TYPE= 3 CASE 
05 OF ." PROGRAM" [SP] 3 3 + SPACES 



USED=" TSEC 3 SEC 3 - 2+ 



I, 



< SCREEN #31^^^ • " PKOliKftH" Lbfj * J t orHuco ENDOF ENDCASE i{ 

=TYPE= ! C3 +1+ COUNT OVER OVER FAC SWAP'CMOVE STR FAC>i 
PAD COUNT >R DROP F->S =TYPE= 3 IF . ELSE TSEC ' ENDIF ' 
FILE-TYPE PROT 3 IF Y" ENDIF ; | 

OPEN BEGIN RD DROP [BUF] C3 WHILE SCAT REPEAT CLSE CR CR TP 
< SCREEN «2 BY G. GOODWIN ) "CfCHi UList LK CR CR 

BASE->R HEX VARIABLE [SP] VARIABLE TSEC VARIABLE SEC 
! LEN! 2 SPACES SEC ®. ; 

TSEC SEC - 2+ . 



LiSED=" 



00 
01 
02 
03 
04 
05 



AV CR ." SEC= " TSEC 
FILE-TYPE =TYPE= CASE 
OF^DUP > IF AM ELSf DROP ENDIF ENDOF 
OF ." DIS/FIX" !LEN! ENDOF 
DIS/k^AR" 
INT/FIX" 
INT/UAR" 
PROGRAM" 



OF 
OF 
OF 
OF 



! LEN! 
! LEN ! 
! LEN! 
[SP] 



ENDOF 
ENDOF 
ENDOF 

3 + SPACES 



ENDOF ENDCASE 



R->BASE ~> 



BY G. GoocfcMin) 
VARIABLE PROT 



< SCREEN »3 
BASE->R HEX 
: SCAT 

CR [BUF] COUNT DUP 10 SWAP - >R TYPE R> SPACES 
[BUF] COUNT + DUP DUP COUNT FAC SWAP CMOVE FAO 
FDUP F0< IF 1 PROT ! F->S MINUS 
ELSE PROT ! F->S ENDIF 

=TYPE= ! C + 1 + COUNT OVER OVER FAC SWAP CMOVE 
PAD COUNT >R DROP F->S =TYPE= IF . ELSE TSEC ! 
5 R> - SPACES + COUNT FAC SWAP CMOVE STR FAO 
PAD COUNT [SP] ! DROP F->S SEC ! 

FILE-TYPE PROT IF ." Y" ENDIF ; 
: CAT GOTOXY CLS 

OPEN BEGIN RD DROP [BUF] C WHILE SCAT REPEAT 
FORTH DEFINITIONS : CATALOG DSR CAT ; FORTH 
R->BASE 



STR FAO 
ENDIF 



CLSE CR CR CR 



37 



************«*«*******************!((*:♦!********* 

* TI FORTH DISK COPIER - BY RON RUTLEDGE 1^ 

Jlt*****************************************^ 

1 2 3 4 5 6 

....+....o....+....o....+....o....+,...o....+....o....+....o 

( 6 PASS SINGLE-DRIVE DISK COPIER 7/27/84) 

1 ( enter COLD, 1 LOAD, and DUPLICATE ) 

2 BASE->R DECIMAL -SYNONYMS O VARIABLE BIG 15350 ALLOT 

3 : ?# EMPTY-BUFFERS O BLOCK 10 + ib 256 1024 */MOD SWAP 0= 0= + ; ' 

4 : PAK CR ." PRESS ANY KEY" 52 GPLLNK KEY DROP CR CR ; 

5 : LMD ." LOAD MASTER DISK" PAK ; : LCD ." LOAD COPY DISK" PAK ; 

6 : DUPLICATE CLS O GOTOXY LMD DISK_LO ! 7# DUP DUP 

7 DISK_SIZE ! DISK_HI i LCD 

8 ...FORMATING COPY DISK..." O FORMAT-DISK 

9 DO CLS O GOTOXY LMD 

10 I 15 DO DUP I + DUP . CR BLOCK BIG I 1024 * + 1024 CMDVE LOOP 

11 CLS GOTOXY LCD 

12 15 DO DUP I + DUP . CR BLOCK BIG I 1024 * + SWAP 1024 CMOVE 

13 UPDATE FLUSH LOOP 

14 DROP 15 +LOOP 1 DISK_LO ! ; R->BASE 
15 



This program, which I -found on a California electronic bulletin board, 
will copy a single sided disk using one disk drive in six passes and a double 
sided disk in twelve passes. Thanks to Bob Utter -for doing the debugging. To 
use this program do the -following: 

1) Select the Load and Run option in the Edi tor /Assembl er and execute 
"DSKl. FORTH". (It would help to read chapters 2, 3, ?< 5 in the FORTH manual). 

2) FORTH will display "BOOTING " -first, then a menu, then "TI FORTH" 

with a cursor underneath it. At this point enter the -following commands: 

A) -EDITOR 

B) 1 CLEAR 
C> 1 EDIT 

This will load a blank screen with only the position lines on top and the line 
numbers to the le-ft. Now key in the screen shown above. 

3) Next, press <FUNC> BACK. This will return you to command mode, then 
enter "FLUSH". This will save your screen to disk. **WARNING** It is very 
easy to mess up a FORTH disk so do your work on a copy, not on your master! 

4) I-f you have a printer, you may print the screen by entering "-PRINT" 
followed by "0 TRIAD". If you haven't corrected SCR #72 do the following: 

A) Follow the procedure for editing SCR#1 except DO NOT enter the 
clear command. That will wipe out the entire screen. (Enter "72 EDIT"). 

B) At the beginning of line 5 change PAB_ADDR to PAB-ADDR (_ to -) 

C) If you have a parallel printer, in line 4 change " RS232. BA=9600" 
to " PIO". Note the space preceeding either entry. 

5) The FORTH copier may be used like this: 

A) If you were working in FORTH previously, enter "COLD". 

B) Enter "1 LOAD". If your screen is bad, FORTH will tell you now. 

C) Enter "DUPLICATE". FORTH will begin by asking for the master disk. 

Note the following about the FORTH Disk Copier. First, it will copy 
anything regardless of the protection scheme as long as it uses sector 
boundries as defined by TI (ie, everything). Second, it will not write to a 
disk that has the write protect notch covered but it doesn't check to see that 
you put the correct disk back in either like the Disk Manager 2 does. Third, 
unless you are using a double sided drive you do not need to initialize your 
diskette, the copier will do it for you. Fourth, the entire disk will be 
copied regardless of how much is actually used on it. If you are having 
problems hang tight, there will be a demo at the next meeting! 



Double Sided FORTH 



By Jim Vi ncent 



Midwest Cooridnator 
99'ers Users Group Association 

So you have double sided disk drives on your TI 99/4A. When you got your copy o-f TI 
FORTH -from the user group you ifwnediately tried copying i t to a double sided disk using the 
Disk Manager II, didn't you? Didn't work so hot did it? Well, this article will show you 
what to do to make TI FORTH work with your double sided drives. 

TI FORTH uses direct sector addressing to read/write screens to disk. Each screen is 
1024 bytes or -four single density sectors long. To be compatible with the Disk Manager 
module and normal -file I/O -for initial loading o-f the FORTH program, the FORTH disk uses 
the standard disk header and directory sectors. Since there are only three -files on the 
disk, this means sectors zero through -four are allocated to this overhead operation. The 
•first -file, FORTH (actually just a short assembly language loader program begins in sector 
22 (hex) as usual. It is followed by the actual FORTH program -file which is also handled 
via normal I/O routines and occupies up to sector 4C. SYS-SCRNS occupies all remaining 
sectors on the disk, -for single sided thats 138 (hex). Thus the -file SYS-SCRNS takes up 
not only the sectors -from 4D to the end of the disk, but also has an extent that takes up 
sectors 5 to 21 (hex). 

Now since TI FORTH uses direct sector addressing, it expects screen 3 (the boot screen 
to be in sectors C thru F. I-f you use Disk Manager to copy these three -files -from a single 
sided disk to a double sided disk, the Disk Manager is able to put the whole SYS-SCRNS -file 
on disk contigously. No extents are required, thus what was at sector 5 to 21 is now at 
sector 168 to 184. It is any wonder FORTH acts strange? The boot screen only contai'ns 
garbage ! 

To remedy this situation we must copy a single sided disk, sector -for sector to a 
double sided one, and then doctor sectors zero and -four to comply with the Disk Manager's 
standards. Then to use the extra capacity we will update a couple screens. Your -first 
step however, must be to initialize a double sided disk using the Disk Manager Ii; Next 
load FORTH and set DISK_LO to zero. Load the -COPY screens and use the command FORTH-COPY 
to dupe your single sided FORTH to the double sided disk. I-f you don't have two drives, 
use Disk Manager to copy all three -files but then use FORTH to copy screens 1 thru 9. 
Here's the technique; 

n BLOCK UPDATE ( where n is screen number to be read iront old disk) 
FLUSH ( writes screen to new disk, move up to 5 screens at a time) 
Now, edit screen 3 to add the -following commands: 

180 DISK-SIZE ! (' supports double sided capacity per disk) 
360 DISK_HI ! ( supports two double sided drives) 
Next time you boot FORTH it will recognize screen 175 as part of disk 1 and screen 185 
as part of disk 2. Now let's fix the commands in the -COPY screens. Edit screen 39. The 
value 90 appears once in DTEST and twice in FORTH-COPY. Change all three occurances to 
180. Next edit screen 40 with the following: 
Li 



ine 


Current Contents 


New Contents 


3 


168 


2D0 


5 


2000 


2028 


5 


12 + 26 


12 + 0201 SWAP 


10 


165 


2CD 


13 


4016 


802C 



Now let's make our FORTH disk compatible with Disk Manager II. Here's the word you 
need to do it: 
HEX 

: DOUBLE-FORTH BLOCK UPDATE DUP A+ 200 SWAP ! 
DUP 10 * 2028 SWAP ! 12-I- 0201 SWAP ! 

1 BLOCK UPDATE DUP E •^ 2A0 SWAP ! DUP IC *AD20 SWAP ! 
DUP IE + 2805 SWAP ! 20 •^ F029 SWAP ! FLUSH ; 
DECIMAL DOUBLE-FORTH 

Now that you have full use of your double sided drives I'd like to issue a couple of 
chal 1 enges. 

1. Figure out hew to alter the FORTH ccmmand FORMAT-DISK to format a double sided disk. 

2. Alter FORTH to support CorComp's double density controller. 
Good Luck ! 2 



DOUBLE-DENSITY FORTH 



by J. W. Vincent 



Editors Note: The -fonowing article was copied -from the September, 1984 issue o-f "The 
National 99'er", Newsletter o-f the 99''ers Users Group Association; Bakers^ield, Cali-fornia. 

This article is intended -for all TI FORTH users who have <or plan on having) double density 
and/or double sided disk capabilities. While the techniques described should work with any 
disk controller capable o-f double density, the author's CorComp 9900 Disk Controller Card 
is the only one that has been tested. The purpose o-f this article is to illustrate both 
how to access the additional screen capacity and how to modi-fy the FORTH words and disk to 
be compatible with the new -format and Disk Manager. Throughout this article lowercase 
letters used in a FORTH de-finition will indicate a variable value to be entered. The 
■following terms will be used to re-fer to the various -formats a FORTH disk may have. 

90 SCRN or SSSD - the original 90 screen single sided single density fomat 
180 SCRN - either a SSDD or DSSD disk when cement applies to both 

3^0 SZW or DSDD - a double sided double density disk 

SSDD - a single sided double density disk 

DSSD - a double sided single density disk 

The first step is to use Disk Manager to -format <initialize) a 180 or 360 SCRN disk. Next 
you must copy FORTH from the 90 SCRN disk to the new 180 or 360 SCRN disk. The disk copy 
feature of CorComp's Disk Manager will do this properly for you. If you have two drives, 
the FORTH-COPY word in the -COPY screens will also do it properly <do DISK_LO ! first). 
However, if you are using TI's Disk Manager II, after copying the three files you must use 
FORTH to copy screens 1 to 9 because Disk Manager II puts them in the wrong place! To do 
this, enter the following for each of the nine screens. 

D BLOCK IffOATE ( where n is the screen nunber to be read fron old disk) 

FLUSH < after inserting the new disk - note: up to five screens nay be entered at a tine) 

Now edit screen 3 of your new disk and add the following ccmmands: 
jr DISK.S1ZE ! ( where x = 180 or 360 as appropriate) 

y OISK_HI ! ( where y = x times l", 2, 3, or 4 depending on the ninber of drives you have) 

Unfortunately, TI FORTH does not privide a method for configuring each drive individually. 
Therefore, the user must be conginzant of which screens are available on each drive when 
there are differences between them. At this point, FORTH can be booted and it will 
recognize the full capacity of your 180 or 360 SCRN disk. You can create, edit, list, and 
load from screens greater than 89. However, neither Disk Manager nor FORTH-COPY will 
recognize this disk as having more than 90 screens. To fix this problem you must modify 
the -COPY screens (39 and 40), the disk header (sector 0) and, the SYS-SCRNS file header 
(sector 4). First edit screen 39. Change the value 90, which appears once in DTEST and 
twice in FORTH-COPY to 180 or 360 as appropriate. Next edit screen 40 as follows: 

Line 3 - change 168 to 200 for 180 Sm or SAO for 340 SCI?N 
Line 4 - change 944 to 1244 for SSDD or DSDD (no change for DSSD) 
Line 5 - replace entire 1 ine with; 

DUP 10 ♦ 2028 SUAP ! DUP 12 ♦ a SUAP ! OUP 14 4 24 FILL 

where a = 0201 for DSSD, 0102 for SSDD, or 0202 for DSDD 
Line 10 - change 145 to 2CD for 180 SCRN, or 59D for 340 SCRN 
Line 13 - change 4016 to C02C for 180 SCm, or C059 for 340 SCRN 

Next edit screen 33 to modify the FORMAT-DISK word to: 

: FORWT-DISK I* a 33616 ! 18 SYSTBI ; ( where a = 258 for DSDD, 513 for SSDD, 514 for DSDD) 



DOUBLE-DENSITY FORTH, cont'd. 



Finally, you need to create a word that will modify the Reader sectors on your 
This word only needs to be executed once since copies o-f this disi<, once it' 
will not require modi-f ication. Here is the way to do it: 



new dif 
s modi-f ieo, 



HEX DSILLO ! 
: DD-FORTH BLOCK UPDATE 
DUP A 4 a SUAP ! 
DUP C 4 b SUAP ! 
DUP 10 4 c SUAP ! 
DUP 12 4 d SUAP ! 
38 ♦ C8 FF FILL 
1 BLOCK UPDATE 
DUP E + f SUAP ! 
DUP IC 4 g SUAP ! 
DUP IE 4 
20 4 
FLUSH i 
DECimL OD-FORTH 



li SUAP ! 
i SUAP ! 



( removes disk {ence) 

< read screen and nark as updated) 

( a = 2D0 for 180 SCfa^, SAO for 360 SCRN) 
( b = 944 for DSSD, 1244 for SSDD or DSDD) 

< c = 2028 for all versions) 

( d = 201 on DSSD, 102 on SSDD, 202 on DSDD) 

( flag all sectors as in use) 

( read screen 1 and nark as updated) 

i i-2M for 180 Sm, 570 for 360 Sm) 

( g = 4D20 for 180 or 340 SCiW versions) 

( h » 2805 for 180 SCI94, 5205 for 360 SCRN) 

< i - F029 for m SCfH, F059 for 360 SCi»i) 
( urite nodified screens to disk) 

< execute it) 



new high capacity copy of 
and header 
Enjoy! 



Now your 

format, copy, test, 
drives and controller 



FORTH is fully compatable with Disk Manager, the FORTH 
words and your double density and/or double sided disk 



UORDSEARCH #"2, 



Hidden in the following wordsearch 
arc 20 TI FORTH words. Look for the 
answers in the June HUGger Newsletter, 
and Good Search in! 

»«»WORD LIST»*» 

ABORT 
BOOT 
BUFFER 
CREATE 
CCMPILE 
DECIMAL 
DIGIT 
EDIT 
EXECUTE 
ERROR 
FORTH 
LOOP 
MAGNIFY 

PAUSE 
RWD0M12E 
SCREEN 
SMUDGE 
SPRITE 
UPDATE 
VOCABULARY 



XRDCQI I HCGBRPOOUv'ELNDHMRKMMCAUZA 
D S Z Q BXUJX I V\ OAU F KX UW DY QXI ^JU) B EX D JMUM 
GN I SLCQO I M JUUQOMYKTPPDAURMUDNTL J 
K PMT B F F Y RA L U B A C DMA G P STMX C J U C A A C A 
L KN S K Q E FAT U F J PUI C U P P ON I N Z NXM Q B L P 
YPMAWZ I WEFZNM I I HDUFUMMOQEQRKCXM'v' 
HAN I PCND JCDNHAHJEFC I BFTAFSXFAXLP 
E PN I F S U L 2 D S I M K G S G F XX UX Y BM Z K G S G 
TBUV JDNFFFGLZ Y I NACPTLGZ DERTRXYWR 
XOZEDBTI PJLUGQHAIUAFSUI DTHIaIQGEDX 
N L AN'v' J G A or K KT UX E B F S RW G B HM HW DMX I K 
QBMZ PMLILTUMDBWYQyOY I I COKFKMMRE JU 
MED I TSXHM I MBWFAXRNRTURO I EZ JCUCEF 
BUIRI EXDYCEGDUtiSYUlYRTU I PI lEFQJCUQ I 
BSALDOGPTKENBK I A JRSFJTPPP JPAXTWY 
LIUW Q P K Y D DXYM S DX C L LT G F L I HM F E I E 
FZNSBSR I E JE JUHCDRRZ QERRORZ LWXXAX 
F ON Y H L'v' BN E P CWX KN R E F V'X L BU J E I ET G U G 
E I XMLFFZH JEB I WOO I A J JAH'v'O I v^BHPGCF 
RNEERCSKOCNL I HCRATEHGUGUONSDyAQP 
KV B G Z C LU K R B L A L Q E U A FU C R GT QX A BM F 
MF Z D S Q U P DAT EN L E I WX I H R D RMXX AN Q 2 
E' -'FSBNRHE I SCDP I YK I QKXTGALMDHQXGN 
I CWHUMSCAXRFSOI H 1GLEZ IMODNARJRPM 
NM C SY OYMY K A C T SPRITE H ( T U H PW J R L RX J 



FORTH CORRECTIONS 
PART I 

Editor's Note: The {ollowing article is printed, in part, in the HUGger 

Newsletter via the August, 1985 issue HicroPendium, These corrections 

were so extensive and due to soace limitations, one or two corrections will 

appear each month. By TOM FREEMAN 

CORRECTIONS TO THE FORTH SYSTEM DISK 

I have found the following errors in the system disk as I received it (even th. 
version with screens 58-59 dated OCT83). 

The first is simple. Line 1 in screens 53, 54, and 55 contedns the won 
VDPSET2. This should be SETVDP2. 

Second, lines 9 and 10 in screen 58 should be switched, and the new line ! 
should read: 

VDPMDE @ 4 < IF SMTN 80 VFILL 300 ' SATR 1 ENDIF 

If ( INIT ALL SPRITES ) is on this line, it may be deleted as it is not compile* 
anyway. Note the ' before SATR not !, which was in the "corrected" versioi 
labelled 20OCT83 LAO on line 0. You may add 1NOV84 TSF to this if you wish 

Third, in line 9, screen 59, between >R and SP@ should read: 
8 SLA SWAP OOFE AND OR 

Line on this screen should read 20OOCT83 LOT). 

CORRECTIONS TO DOUBLE FORTH 

Thanks to Jim Vincent for publishing the Double-Sided Forth information 
and to others for reprinting it. 

Unfortunately the disk with screens only on it does not in fact copy with the T: 
IDisk Manager. The problem is in bytes 15-17 (the sector access chain) anc 
possibly in byte 10, which contains the total number of records, in this case twice 
:he number of sectors. 

Thus in screen 40 make the following changes/additions to Jim's note: 
line 11 change CA02 to 9A05 for 180 SCR, 3A0B for 360 SCR 
line 12 change 2250 to 22D0 for 180 SCR and 360 SCR 
line 13 change 1403 to 2A03 for 180 SCR. 5703 for 360 SCR (retain previous 
change) 

For DD-Forth make the following addition between DUP E etc. and DUP IC 

etc: 

DUP 12 + j SWAP 1 ( j =4005 for 180 SCR, EOOA for 360 SCR) 

And the following changes: 
DUP IE etc. ( h = 5505 for 360 SCR) 
20 + etc. ( i = F056 for 360 SCR) 

I do not own a double-density card, so 1 could not test these changes, but I ar 
reasonably sure they work. I also decided to retain the original word DISK 
HEAD and made a new one as follows: 

: 2DISK-HEAD DISK-HEAD BLOCK DUP A + 2D0 SWAP I DUP 10 + 202 
SWAP r DUP 12 + 201 SWAP I 20O + DUP E -h 2CD SWAP I DUP 12 + 
9A05 SWAP 1 DUP IC + 22D0 SWAP I DUP IE + 2A03 SWAP 1 20 + C02C 
SWAP I UPDATE FLUSH ; 

These v.tlues are for DSSD drives. You can substitute the appropriate value 
for SDDD or DSDD. 

For what it's worth, NONE of these is really necessary if you use Forth itself t' 
copy the disks (or any mass copier) since it doesn't make use of the disk map. Bt 
it's nice to be complete! And you might give a disk to a friend who doesn't hav 
Forth set up yet. 



H3i 



WORDSEARCH # 3 

I'her-e are 26 v/orcls 

r e i a t .1 riq c o c ne biiS . 

WORD LIST 



MESSAGE MODULE 
CHARACTER BUFFER 
FILE MODULE 
LINEFEEDS 

ERRORS 
BACKSPACE 
SCROLLING 
PRINTING 
SCREEN 
LOGOFF 
SYSOP 
HEADERS 
ErfTRY 
HU6BBS 
EDIT 
PREVIEW 
SAVING 
BELL 
CHAT 
DOWNLOAD 
GOODBYE 
HELP 
LIST CALLERS 
DEFAULT OPTION 
UPLOAD 
TERMINAL EMULATOR 



HU6BBSSINBJHXBIJWCECAPSKCA8 

2YPMCCVL IT JKY I XCASYXYDDGKFE 

GIWFPRTBWSRORREOOMWKWPMCCVL 

OPMQNEYFT I UT I DFPREV I ElvTC JWCL 

0T0AUESRELLACTSIL3GDETWXTGX 

DKIUFNCYPGBIMBXFWSYWTLELNRS 

BTLRFVTCNOTTFRVWLAEVANKIVLL 

YKJORAEMI 0EMEGXERGJK6WTDKHI 

EUVTPRKLOGOFFMDBXEQKQNTLNON 

AZTAFLCSUFFMCUXUFM'v'MIMNSNTE 

XBVLKDHUWDQSQSXSTOVROKPYOJF 

I BQUyXANBGOUBCySHDPDDQT'lTI DE 

SZHMBFRUXZOr-lSROJAUNUUXZBTRE 

Y2KEHBAVUIEQE0AASLRHLHHDFVD 

SGPLKTCHATTIPLAEIEXDEFYCOUS 

OFBALSTGQRWQULI I SCTHMKRTT JX 

PNNNFREDCJBLOIVFDACJVRTXLLR 

SIYI SRRHOTTWANDYADVFOANRUI R 

AWKM JHBYGUET J6LDYAM I XAENASQ 

BASRMNUZXSNWMBTTADJSNAFMFTF 

WPLEHOFI UFYLTUHEM0R2HGWLEQG 

FYGTQNFNC'v'EQOKZFAYLDSNTODZM 

MJNOFFESFKIRVANTOPIPLVKJAEC 

USREQSREDAEHMSDGIQANUUTIMEE 



- ADDITIONS AND MODIFICATIONS TO FORTH SYSTEM DISK 



By TOM FREEMAN 



I have found these useful on my system disk, in addition to those such as 
PAGE or SIZE which have been published elsewhere. For instance, how do you 
tcil which base you arc in? BASE' @ . will always give you 10 since that is the 
value in the current basel The following will give the answer in decimal without 
changing the base: 

: BASEINDEC BASE @ BASE->R DECIMAL . R-5-BASE-; 
" Those of you dumping information to a pijntcr frequently may find typing 
SWCH and UNSWCH annoying. The following will make it easier: 
(i PRINTER WORDS TSF 3DEC84) 
BASE->R HEX 
PINDEX SWCH INDEX CR UNSWCH ; 
PLIST SWCH LIST CR UNSWCH ; 
PCR SWCH CR UNSW.CH ; 
PVLIST SWCH VLIST CR UNSWCH ; 
P" 22 WORD HERE COUNT SWCH TYPE UNSWCH ; 
R->BASE 

The first three are obvious, but they do save typing time. PVLIST is a problem 
because it only uses 40 columns. This is probably OK since you won't use it often, 
but if you wish to change it, find the definition of VLIST on screen 43, copy it us- 
ing PVLIST in place of VLIST and 4E in place of 25 near the end of the second 
line. 

P" which of course replaces ." was a bit more complicated because of the way 
in which ."is used. I had to go back to the original definition to figure out where 
to put the SWCH and UNSWCH. 

PDUMP to replace DUMP doesn't appear above because I felt it important to 
use the full 80 columns of the primer. The following will construct PDUMP: 
(apologies to Peter Geltner of Los Angeles, who gave it to me but has never 
published it) . . 

1) make a new word DUMP 10 exactly like DUMPS except 37 in place of IF in 
screen 42, line 7. 

2) PDUMP is then exactly like DUMP except replace 8 with 10 in scr 43, line 3 
and DUMPS with DUMP 10 in line 4. 

3) Memory can be saved by defining the parts that are the same as new words, and 
using these in DUMPS, DUMPIO, DUMP, and PDUMP before and after 
changes. 

The Forth editors always give the screen number in decimal . I prefer to have it 
also in HEX if I'm using HEX. For the 64-column editor the following will do it: 
on screen 26, in the definition of SCRNO, between BASE->R and R->BASE 
replace what is there by DUP . BASE @ DECIMAL 16 = IF ." 
HEX...decimal= " . ELSE DROP ENDIF 

For the 40-column editor go to LISTA on screen 34, replace DECIMAL with 
BASE->R, AFTER SCR # " insert the same code as in the last paragraph, then 
R->BASE after LOOP. 

COLOR CHANGES IN FORTH 

You may wish to change the foreground and background colors in text, 
graphics, multi, and split modes. I wish to use white on transparent, for instance, 
since I have a monochrome monitor, with the text area below the 64-colimm 
editor a contrasting black on white. The following information will tell you where 
to do it. XY will always refer to a foreground color of X and a background of Y 
(both in HEX, sec your E/A manual). 

1) TEXT mode— screen 51, line 9, where you see 0F4 7 VWTR change F4 to XY 

2) text in GRAPHICS mode— screen 52, lines 6 and 10, where you see F4, use XY 

3) screen text in 64<olumn editor— screen 54, line 6, OFO VFILL, 0FO->0XY (I 
left this unchanged, but 17 looks better on a color TV or monitor) 

4) text in SPLIT mode— screen 55, line 6, 0F4 VFILL, 0F4->0XY 

5) text in SPL1T2 mode— screen 55, line 11, 0F4 VFILL, 0F4->0XY 

6) cursor in 64-column editor— screen 23, line 5 SPCHAR F. F->-X (F, th 
default is white, but it must contrast with the background of SPLIT) 



WORDSEARCH * 4 

There are 23 words 
relatanq to the BASIC 
and EXTENDED BASIC 



WORD LIST 

CALLCHAR 
CALLCHARPAT 
CALLCHARSET 
CALLCLEAR 
CALLCOINC 
CALLCOLOR 

CALLERR 
CALL6CHAR 
CALLHCHAR 
CALLINIT 
CALLJOYST 

CALLKEY 
CALLLINK 
CALLLOAD 
CALLLOCATE 
CALLPEEK 
CALLSAY 
CALLSCREEN 
CALLSOUND 
CALLSPGET 
CALLSPRITE 
CALLVCHAR 
CALLVERSION 
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This is the last of the series oi 
1985 issue o-f MI CROpend i um. Next 



FORTH CORRECTIONS AND UPDATES 

by Tom Freeman 
FORTH corrections and updates as appeared 
month, Editor/Assembler chanoes. 



In the August, 
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FORTH DECOMPILER 



Gives the De-finition o-f FORTH Words. 

by Bill Jones, Indy 

Lots o-f times I've been testing out a 
program and created a test word' in FORTH 
to try out what I'm working on. Since I 
usually enter it from the l<eyboard rather 
than store it on the disk, I sometimes 
■forget how I invented the work. This 
little program can bring back the 
de-finition o-f the word I created or one 
that is already compiled in the system. 
It's a pretty neat trick that -follows the 
words backward and gives them back to 
you. This particular procedure was 
written by Jim Vincent o-f the Milwaukee 
Area users group, but I -found it listed 
in the L.A. 99ers group newsletter. I'm 
passing it along to the HUGgers just as 
it was listed. Jim's style is pretty 
compressed and I haven't made any attempt 
to expand it -for clarity. 

Also this month, I've been working on a 
routine to convert FORTH screens into 
display 80 -files that TI-WRITER can read. 
I-f you've ever wanted to send FORTH code 
to someone else via modem you know how 
useful that can be! I will be presenting 
that program to the FORTH interest group 
at the next meeting and you'll see the 
listing here next month. It -features 
special instructions to strip carrage 
returns that TI-URITER inserts as well as 
the end o-f -file at the end. Along with 
it, I'll be giving a good tutorial on how 
to make FORTH read and write regular disk 
■files. 



TI RELEASES FORTH SOURCE CODES 



FORTH ASSEMBLER SOURCE CODEt These two 
disks contain the portion o-f TI Forth 
written in assembler. The disk contents 
is as -fol lows: 

PART It <ASMSRC) is the dictionary 
entry <or the 250 or so primitives that 
are present when Forth is booted. This is 
loaded into memory at >A000 . 

PART 2: (DRUJER) is the code -for the 
1/0 system and support -for Forth. It 
contains the disk and screen I/O, the 
allocation o-f user variable space, the 
stacks etc. Because it is more e-fficient 
to rearrange memory -from the way that it 
defaults in the Editor/Assembler, this 
section also includes <in the UTIL* -files) 
those portions oi the E/A utilities that 
Forth requires and assembles them to 
di-f-ferent addresses. A small portion of 
code is also placed into the console RAM 
at>8300 -for speed reasons. 

Also on part 2 is the program called 
BOOT. After Forth is loaded using ASMSRC 
and DRl«v"ER, Forth can <after loading the 
file words) save an image of itself to the 
VDP RAM and write this image to disk as a 
program file. BOOT is used to read this 
image and to reconstruct the Forth system 
from the image. When booting the Forth 
system in the normal manner, the file 
FORTH is the object code of BOOT and the 
file FORTHSAVE is the memory image of the 
system. Note that if the size of the 
system changes, BOOT will have to have 
some addresses modified to work correctly. 



Screen 150 

< FORTH word decompiler - MKf 7-N0k;-84 ) BASE->R HEX 
-FIND <.") DROP DROP 2- CONSTANT 

ADQ -FIND LIT DROP DROP 2- CONSTANT ALIT -FIND BRANCH DROP DROP 
2- CONSTANT ABRAN -FIND BRANCH DROP DROP 2- CONSTANT A2BRAN 
( DITTO) 

: .DQ 2E EMIT 22 EMIT 20 EMIT ; 
: .Q 22 EMIT 20 EMIT ; 

: DQ? DUP 2+ 3 ADQ = IF .DQ 4 + DUP COUNT TYPE DUP Col + DUP 2 MOD IF 1- THEN 
THEN ; 

: :? DUP a) 8334 = ; < TESTS IF WORD STARTS WITH DOCOLON ) 
: ;? DUP 3 3 8340 = ; < TEST IF WORD IS SEMIS ) 
: P? DUP6a) 2- = ; < TEST IF WORD HAS 9 AS A PR I MAT I DEF) 
; D? 2 DUP 3 06A0 = SWAP 2+ 3 832E = AND s < TEST FOR DOES>) 
: .ID 2+ NFA ID. ; ( PRINT WORD NAME ) 

: UN: -FIND IF DROP 2- :? IF CR . : " DUP .ID BEGIN 2+ ; ? I F ." ; " CR DROP i 
ELSE DUP 3 :? OMER P? OR OVER D? OR IF .ID ELSE U. THEN' DQ? THEN DUP 0= UNTIl 
DROP ELSE ." Not a colon de^f'd word" THEN ELSE ." No such word" CR THEN ; 



R->BASE <)<)<)<) 



Di'nect Disk Access-A FORTH Approach by Bill Jones 



There have been several requests to continue printing articles 
on Forth prograns so here's a small one dealing with a subject 
I've been v/orking on for a couple of years now. I've published 
listings of prograns to do disk interfacing. Recently, I 
investigated bypassing' the DSR, talking directly to tiie 
controller chip for the disks. Tv/o types of I/O (input/output) 
systems are used to coimiunicate with the disks. The "official" 
I/O system of the 9900 microprocessor is the CRU or 
Comnunications Register Unit. The CRU bits are addressed much 
like memory, but using special instructions that turn off the 
memory and turn on ccn^n^ni cation. An alternative method is to 
use a memory address but connect a device to that location 
instead of menory. This kind of I/O is called "Mefnory Mapped 



The disk system uses CRU bits to turn on the card, turn on the 
disks, select the side and so-forth. The status register on 
the controller, coirmand register and read/write registers are 
memory rapped I/O at the end of the address space used for the 
controller card (hex 4000 thru 5FFF). Because Forth preshifts 
the CRU bits for you, CRU addressing begins at hex 880. From 
an asseutler's point of view, those addresses appear at 
beginning hex 1100. Note, everything on the TI controller must 
be reversed from what manufacturers' docunentation says. 
Because of the way the electronics of the card, all the bits 
are reversed. A coonand vrfiich would be binary 1011 would be 
0100 instead. On CorComp and Myarc controllers those bits 
don't need to be flipped. 

1 the exanple program we are using two disk controller 
addresses that cor,ie on v.'hen we enable the card. Memory address 
5FF8 writes a disk operation command to the disk controller 
chip. Address 5FFE is usually the place to write information 
CO the floppy disk, but for a seek corirand, we must put ttis 
nutifcer of the track we want to seek to. Also for this exanple. 




1 
2 
3 
4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 

To seek the head to a track, give the track number and type 
SEEK. If you used the RESTORE conriand when you began, the head 
should move smoothly across the drive to any track within range 
that you select. If you hear the head hit the stop, always 
restore to tracK before continuing. 

A final note: In full scale systems, conrnands vrould finish by 
checking status lines and tinen giving control back to you. 
Sines that requires more detail than I wanted to cover here, I 
picked a quick and dirty way to make sure everything quit in 
good order. Turning the card off at the end of the instruction 
iTHkes sure that you don't leave it on when you quit but may not 
give the timer enough tirre to finish your conrand. If you 
DSK-ON and give the seek or restore comand in the sare line, 
the timer should stay on long enougn for the head to travel 
clear across the disk. 



we are using three CRU I/O bits. 880 will turn on the card and 
allow access to all addressed devices on that card. (The CRU 
bits are always active so you can turn the drives on and off 
even if the card is not on.) You will not be able to send a 
comiand to the controller chip unless the card is on. 

ly example demonstrates tivo camands of the controller chip, 
seek and restore. When the nurAers for those conr.iands are put 
into the conmand address and the disk is turned on, a head move 
operation will be performed. To turn on the disk, you must 
start a timer on the card running and then select the disk you- 
want. In the example, TIME-ON starts the tine by turning the 
timer off and back on again. LITE-ON selects DSKl, DSK-OFF 
clears all 16 (hex 10) possible CRU I/O bits usee by xh° card 
WARNING! IF THE DISK COfJTROLLER CARD'S LIGHT IS ON AND YOU pj' 
TO DO A NORMAL DISK READ OR WRITE IN FORTH, YOU WILL LXK UP 
THE COMPUTER! Always use CARD-OFF or DSK-OFF when you've 
finished experimenting. 



Notice the INVERT instruction. On a TI controller card all 
the camands to the control ler chip and all data conn nq back 
mist be reversed. If you -are experimentinq wi th a fJon-TI card 
maKe this a no-op instruction or remove it from the other 
v/ords. A 40 track drive can seek between tracks and 39 if 
you try to go beyond those limits, your drive will bump its 
head against the stop till the controller finishes its count.- 
Don t do it. It's hard on the drive. Also, restore th° head 
when you start and finish. The disk will be disoriented when 
you go between our ds,x3 system and the orie Forth uses 
Starting at track iiaKss it easier for the controller chin to 
reorient itself to the track it is seeking. 



This example program comes from a set of Forth routines I am 
writing for my cwn disk operating system for ny TI. If you 
would like a copy of the source code dccuinentat-ion cf the 
segments on how to read and write sectors to the disk, where 
tiie control lines are addressed and how to use them, send me 34 
and a self-addressed 9X12 envelope. The listing contains 
nearly a dozen screens of inforriiation about using the '.-festern 
Digital 1771 floppy controller chip in the TI disk controller 
card. My address is: Bill Jones, 1305 N. Livinqston Ave. 
Indianapolis, In ^u222. 



Hi 



( FORTH DISK ACCESS continued. 



WMJ 8 6 ) BASE->R HEX 



5FF8 CONSTANT COMMAND-REG 
5FFE CONSTANT WRITE-REG 
12 CONSTANT seek 
2 CONSTANT restore 



( STORE THE COMMAND HERE ) 
( STORE THE TRACK No. HERE 

( COMMAND FOR SEEK ) 

I COMMAND TO GO TO TRKO ) 



: INVERT FF XOR 

-CRU 

: CARD-ON 



( : INVERT ; FOR NON-Tl' CARDS ) 



: LITE-ON 
: DSK-ON 
: DSK-OFF 
: RESTORE 



880 SBO 



: CARD-OFF 880 SBZ ; 
884 SBO ; : TIME-ON 881 SBZ 881 SBO ; 

CARD-ON TIME-ON LITE-ON ; ( SET 3 CRU BITS ) 
10 880 LDCR ; ( CLEAR ALL CRU BITS ) 
restore INVERT COMMAND-REG C! CARD-OFF ; 
SEEK INVERT WRITE-REG C! seek INVERT COMMAND-REG C! CARD-OFF 

R->BASE 



Initialize disks with FORTH (double sided too) by Bill Jones, Indy ok 

Have you ever wondered what would happen if you didn ' t have your disk manager 
cartridge? Mine came with a warning that said it could be destroyed by static. 
Without it, disks cannot be initialized and that means that the disks you have 
are all you can use. For me, the answer is FORTH. FORTH can do the system call 
that will initialize the disk, if your drives are single sided. Formatting the 
disk is only half the story though. A disk to be used in BASIC or other regular 
cartridges must also have initialization information written on it. (By the 
way, TI calls this the DXIO disk system.) FORTH can do this too, with special 
programming. 



Working on this, I went one step further. The FORTH screens listed here can 
fully initialize a new disk either single or double sided without using the 
disk manager. Since FORTH can now be loaded by four different cartridges, most 
people with a complete system can use this program as an alternative way to 
initialize their disks. To use this program, the word FORMAT will format a disk 
when you use it in the form: n FORMAT, where 'n' is the disk number (beginning 
with zero) . To initialize for BASIC, use the word INIT the same way. Both words 
operate on the assumption that the new disk will be made the same way as the 
system is currently configured. If DISK_SIZE is greater than 90, a double-sided 
disk will be created, otherwise it will be formatted and initialized as 
single-sided. You must be careful not to initialize a disk as double-sided if 
it was formatted as single-sided. INIT does not check boundaries to see if you 
gave it the right information. One last thing, these screens have to be loaded 
after -COPY since a word created there is used. I make sure this is done by 
pacthing in my code in place of the original FORMAT-DISK screen. 



UNSWCH 

SCR #90 

( ONE /TWO SIDE DISK FORMATTER WMJ 25-JAN-85) 

1 BASE->R DECIMAL 

2 . -31923 CONSTANT. TRACK # { FAC ADR OF TRACKS ) 
' 3 -31919 CONSTANT SIDES ( FAC ADR OF SIDES ) 

4 

5 : DSK-SIDES DISK_SIZE @ 90 > IF 2 ELSE 1 ENDIF ; 

6 : TRACKS 40 TRACK* C! ; 

7 : SIDE DSK-SIDES SIDES C! ; 

8 : HOW-BIG DSK-SIDES 2 = IF ." 2 SIDES" 

9 ELSE ." 1 SIDED" ENDIF ; 

10 : EXPLAIN CR 14 14 GOTOXY ; 

11 : TALK 16 SYSTEM 10 12 GOTOXY 

12 ." FORMATTING DISK" EXPLAIN HOW^BIG ; 

13 : UNTALK 16 SYSTEM 7 GOTOXY ." FORMATTING FINISHED " • 

14 : FORMAT { dsk ) 

15 TALK TRACKS SIDE 1+ 18 SYSTEM UNTALK ; R->BASE 



^7 



UNSWCH 

SCR #91 

{ SETUP FOR DISK INIT *LOAD AFTER -COPY* WMJ 23-JAN-85 ) 

1 BASE->R HEX 

2 

3 { MAP OF DISK HEADER INFORMATION ) 

4 CONSTANT NAME! 

5 A CONSTANT SIZE! 

6 C CONSTANT SEC/TRK! 

7 D CONSTANT TAG! 

8 10 CONSTANT PROTECT! 

9 11 CONSTANT TRACKS! 

10 12 CONSTANT SIDES-DENS 

11 38 CONSTANT MAP! 
12 

13 VARIABLE TOP 

14 VARIABLE LO* 

15 VARIABLE OFF* . — > 
SCR #92 

( DICTIONARY FOR INIT WMJ 23-JAN-85 ) 

1 : PUT> TOP @ + ! ; 

2 : BYTE.PUT> TOP @ + C! ; 

3 : FIND-BLOCK, DISK_SIZE (§ * OFFSET ! BLOCK TOP ! ; 

4 : EMPTY-SECTORS. TOP @ DUP 200 FILL 200 + 200 E5 FILL ; 

5 : ITS-NAME, TOP @ !" DISK " ; 

6 • .: SEC/TRK, SEC/TRK! BYTE.PUT> ; 

7 : THIS-SIZE, DISK_SIZE @ 4 * SIZE! PUT> ; 

8 : THESE 3 MAP! BYTE. PUT > ; 
. 9 : TRACKS-SIDE, TRACKS! BYTE.PUT> ; 

10 : SIDES? DISK_SIZE § 5A > IF 2 ELSE 1 ENDIF ; 

11 : #SIDES, SIDES? 100 * 1+ SIDES-DENS PUT> ; 

12 : UNPROTECT, 20 PROTECT! BYTE.PUT> ; 

13 : "DSK", 44 TAG! BYTE.PUT> 534B TAG! 1+ PUT> ; 

14 : TO-FILL DISK_SIZE @ 4 * SAO SWAP - 8 / ; 

15 : START-USED DISK_SIZE @ 5A / 2D * MAP! + TOP (§ + ; — > 

SCR #93 

{ INITIALIZE FORMATTED DISKETTE WMJ 23-JAN-85 ) 

1 : USED-SECTORS THESE START-USED TO-FILL FF FILL ; 

2 : AND-FILL TOP § EC + 14 FF FILL ; 

3 ( SAVE SYSTEM VARIABLES ) 

4 : NOW, DISK_LO @ LO* ! OFFSET @ OFF* ! DISK_LO ! ; 

5 : -END- UPDATE FLUSH OFF* @ OFFSET ! LO* @ DISK_LO ! ; 

6 : WRITE ; 
7 

8 DECIMAL 
9 

10 : INIT NOW, FIND-BLOCK, EMPTY-SECTORS. ( dsk ) 

11 WRITE ITS-NAME, "DSK", #SIDES, THIS-SIZE, UNPROTECT, 

12 40 TRACKS-SIDE, 9 SEC/TRK, AND-FILL USED-SECTORS 

13 -END- ; R->BASE 
14 

15 



THE FORTH PAGE 



A look at Forths Inner Interpreter, 
by Greg Goodwin 

Although there is a lot o-f in-formation that could be covered on the interpretion o-f a 
word we will look only at the actual execution o-f the 'word'. The Inner Interpreter is 
located at addresses 832e to 8346 on the Tl . Address 833c is the DOEXEC routine. It is 
used by Forth words, and is called by Execute. For example the col de-finition o-f ZZ. 
: ZZ Example I" CR ; 

' ZZ CFA EXECUTE 

A A A 

FIND CODE EXECUTE WORD. 

I-f we wanted to do the same thing in Forth Assembly we could enter: 
CODE EXEC ' EXECUTE 30 B, 
( OR ) 

CODE EXEC *SP* W MOV, 833C 3<) B, 

A look at the code -for Execute should help you to see that both examples do the same 
thing. Here is a -full example. 

BASE->R HEX < EXEC-ASM DEMO ) 

: ZZ CR ." Assembler Code Example." CR ; 
Ci3DE EXEC *SP* U MOV, 833C 90 B, CODE DING 3A06 3() BLWP , 0034 , NEXT, 
: EXAMPLE < Execute Forth Word in Code Word) ' ZZ CFA EXEC DING ; R->BASE 



THE FORTH PAGE 

....Assembly Forth Mixing j 

By Greg Goodwin i 

Here is a short program that will 
allow :>^u to run Program files created | 
with the Ed-Asm in Forth. Note; the j 
routines must be postioned above here, i-f j 
it is a small program around FFCO will 
work -fine. i 

The assembly programs must not use \ 
the Forth Ram stack 8300-83FF. Some \ 
parts o-f that block may be used but 
consult the cpu ram pad map in the Forth 
users manual -first. To create a program 
tile o-f your Assemble program use the 
save utility on the part b disk. Check 
Ed-Asm manual -for details. 

the program. .... 




'trntoiTy, m. butotMemeumaOomn: 



BASE->R HEX VARIABLE BUFX 400 ALLOT 
460 BUFX 1400 FILE SAUEIT 
CODE XASM 06M , 7118 , 045F , 
: ATTRIBUTES < DO FAB ) 

SAUEIT SET-PAB ; 
; UMO'v'E 2000 LD 1402 PAD 4 UMBR 

1406 PAD 2-H 3 DUP DUP HERE SWAP > IF ' XASM 2+ ! PAD 3 UMBR XASM ELSn 
CR ." Cannot load to acJdress " . CR ENDIF ; 

: RUN ATTRIBUTES F-D" DSKl . F! LENAME" 'JmK>E »*DONE**^=' CR 5 R->BA.-.;i 
< TO EXECUTE TYPE RUN ) j\n 



THE FORTH PAGE 



By Greg Goodiwin 

Here is a small routine that will allow i 

the user to input numbers in a Forth word! \ 

This word will require the Floating Point \ 

Routines to be loaded <-FLCIAT). I 



HEX 

: GET-REAL < REAL NUMBER INPUT ) 

PAD F BLANKS 34 837C C! OA SYSTEM 

PAD 1+ F EXPECT PAD 1+ F -TRAILING 2^ PAD C! 

DROP k/iAL-FAO ; 

: GET- INTEGER < SAME AS REAL BUT FORCE INTEGER AND PUT ON STACK ) 
GET-REAL F->S ; 

: EXAMPLE CR CR ." Enter Number->" GET-REAL CR . " YOUR NUMBER U)AS=" FDUP F 
CR ." 5*" F. ."=" >F 5 F* F. ; 



FORTH PAGE I 
by Greg Larson ' 
Here's a quick and dirty Sector Dump I ; 
have been using -for awhile. It will sector 
in two parts so you won't scroll past any- 
thing. To use, simply type the number of 
the sector, you want to see, type "SD" and 
hit ENTER. The addresses shown in the 
listing are those o-f the disk bu-f-fers. The i 
•first address is used as an offset for the 
rest of the sector. The routine leaves the 
next sector number on the stack so that I 
could easily look at several sectors in 
succession. I imagine that this could be 
expanded to do the other functions of Disk 
Fixer, but I'm not sure that I'm up to 
doi ng it mysel f . 



SCR MWHATE^.'ER 

: SD < Sector Dump , 6BL 10/84 ) < Sector tt >>> Sector + 1 ) 

1 DUP DUP CLS CR ." SECTOR NO. " . CR 

2 4 /MOD BLOCK SWAP 256 * + 1 28 OUER OVER DUMP + CR 

3 ."Print rest of Sector <Y/<N>)? " KEY CR 89 = 

4 IF 128 DUMP ELSE DROP ENDIF CR EMPTY-BUFFERS 1+ 

5 ; 



THE HEART AND SOUL OF PERSONAL RECORD KEEPING 



by Don Don Ian 

Those HUGgers who subscribe to the 99'er HCMagazine probably welcomed the 'CALL PEEKV 
and CALL POKEV in'formation related to the Mini-Memory Command module. With this article 1 
would like to begin sharing some of the "secret" subprograms that are a part o-f the 
PERSONAL RECORD KEEPING module. A subprogram is an independent program which usually 
psr-forms only one task or -function. Because the subprogram performs only a single or 
rather narro/* task, several subprograms are usually bundled together when making a program 
or, as in this case, a coronand module. Subprograms allow a programmer to perform tasks 
over and over again using the same code. A subprogram is like a meat grinder—it performs 
one task. But depending on what you 'feed' the meat grinder, you get different results. 
If 1 put pork in my 'meat grinder', I would get sausage; with beef, I get hamburger; with 
ham, I get the base for ham salad. Similarly, you can 'feed' a subprogram differing 
information to get different results. The information you 'feed' a subprogram is contained 
in PARAMETERS. These parameters are like serving trays that carry information back and 
forth between the main body of a program and the subprogram you select to use. Since you 
probably have more than one subprogram (or more than one task or function you wish to 
acconipl ish) , you need to be able to select a particular subprogram. A name is given to 
each subprogram. In this way the computer knows which task or function to perform when you 
CALL the subprogram by name. Pages 71 through 90 of the TI 99/4A USER'S REFERENCE GUIDE 
that came with your computer tell about the color graphics and sound subprograms that are 
part of TI BASIC. You're probably already using the CALL CLEAR subprogram when you want to 
'blank out' or erase the screen. Perhaps you've used the CALL SCREEN subprogram and passed 
along the required parameter <that is, a number from 1 to 16). The CALL SOUND subprogram 
has the ability to receive nine <9) parameters, but only three are required for the 
subprogram to do its job of producing a single tone. These subprograms are explained with 
examples in the USER'S REFERENCE GUIDE. They should give you some basic understanding of 
hc<w subprograms work. You may want to start there. 

For not«) let's return to the task at hand: defining and describing the subprograms that 
are available in the PERSW-IAL RECORD KEEPING cartridge. There are seven subprograiris in the 
PRK command module. A program written in TI BASIC can use these subprograms if you plug in 
the PRK module and take option 1 (TI BASIC) BEFORE you try to load any program. I will go 
into more detail in following articles, but at this time I merely wish to list the seven 
subprograms, their parameters, and some comments on the function they can perform. In the 
final article of this series, I will be including a TI BASIC program that can be used on a 
system with a disk drive to access the records created by the PERSOMAL RECORD KEEPING 
command module. This will provide greater flexibility in the use of this cartridge. 



SUBPROCRAH im. 




DESCRIPTION OF FUOIDH 


PREP SUBPROGR^ 
Code as: 
CALL P(V) 


V 


The number of bytes of 
characters you wish to 
reserve for use. 


Prepares a work area or space that is to be used for 
the storing of infornation. Allocates a data area in VDP 
RAH. 


LOAD SUBPROGI^ 
Code ill 
CALL L<V$,V) 


V$ 


Data file nane. 
Return code. 


Loads a data file fron a disk and indicates , in the 
return code, whether the subprogran successfully 
loaded the file. 


S^viE SUBPROBf^ 
Code as: 
CALL S(yi,V) 


VI 
V 


Data ^ile nane. 
Return code. 


Saves a data file from the work area prepared by the 
PREP subprogram to a disk. Return code tells whether 
the SAVE subprogran did its Job OK. 



THE HEART fiHD SOUL OF PERSGT^M. RECORD KEEPING, cont'd 



SUBPROGIMM mE 


PARAMETERS 


DESCRIPTION OF FUNCTION 


ACCEPT SUBPR06RAH 


T 


Rom number. 


Uorks nuch liKe the Extended BASIC 'ACCEPT AT' 


Code a: 


V 

X 


Colunn nwiber 


code, it 'captures' inforoation fron the 


CALL A(Y,X,W,C,V,L,H) 


U 


Field size or tlie 


{(eyboard as you key it and then echoes or displays that 


or 




nunber oi characters 


infomation on the screen for you to see. Various 


CALL A(Y,X,H,C,V) 


c 


Return code. 


paraiKters nay be used, depending on whether you 


or 


V 


Nuneric variable. 


want to 'read' nunbers, nuibers within a certain 


CALL A<Y,X,«,C,V,F) 




Character variable. 


range, or a character string. The return code 


or 


1 

L 


Low value in a range oi 


tells whether a valid, invalid, or function key was 


CALL A(Y,X,W,C,V$) 




nunbers. 


pressed. The F or field paraneter can be used to 




11 

H 


High value in a range 


validate data entered ONLY if your progran has a second 






of nunbers. 


type of record—a header record—which it uses to 




F 


Field nunber oi a piece 


cross-check the infomation you enter. 






of infomation within a 








PRK record. 




DISPLAY SUBPROGRAM 


Y 


Row number. 


Sinilar to Extended Basic's 'DISPLAY AT' operation, this 


Code as; 


X 


Colunn nunber. 


subprograi places either nunbers or characters on the 


CALL D<Y,X,U,V) 


U 


Nunber of characters or 


screen. Row nunber ranges froB 1 to 24, while the 


or 




field width. 


colunn nunber ranges fron i to 28. HuHlple displays 


CALL D(Y,X,U,V$) 


y 


Nunber to display. 


can be done or perforned with one CALL D. 


or 


vf 


Characters xou want to 




CALL D(Yl,Xl,Ul,gi, 




display. 




Y2,X2,W2,V2$, . 








Y3,X3,U3,\/3,... 








6ETPW SUBPROGRAM 


R/W 


Read or Urite code. 


Retrieves and places infomation fron or into the 


Code as: 


REC 


Record nunber. 


work area defined by PREP subprogram. The subprogran 


CALL 6(R/U,REC,FLD,V) 


FLD 


Field nunber. 


identifies nissing data (infomation not found) when 


or 


V 


Nunber written. 


reading a record. This allows the subprogran to 


CALL 6(R/U,REC,FLD,W) 


V» 


■Characters written. 


tell the difference between a field that has never been 


or 


V2 


Nunber written. 


entered ('nissing') and a field that is all blanks or 


CALL 6<R/W,REC,FLD,H1S,V2) 


V2$ 


Characters read. 


all zeroes. Saves space in nenory by using this code. 


or 


HIS 


'Hissing' return code. 


Values for these codes will be discussed in later 


CALL 6(R/U,REC,FLD,m8,V2i> 


articles. 




HEADER SUBPROGRAM 


R/W 


Read or Urite code. 


This is a core subprogran in PRK nodule. It is used to 


Code as: 


INFO Header record item. 


establish and naintain a kind of 'data dictionary'. 


CALL K<R/aJ,IMFO,FLO,V) 


FLD 


Field nunber. 


This dictionary defines the kinds of infomation and the 


or 


V 


Nuneric variable. 


location of the infomation within the PRK records. 


CALL H(R/W,1NF0,FLD,W) 


VI 


Character variable. 


Fourteen (14) kinds of infomation or header record 



itens are stored here. This one record is the key to the 
entire 'data base' created by the PRK nodule. It gives the 
characteristics of each field within a record (nane, type, 
size, decinals (if any)), storage space and position). The 
. PRK file nane, date, nunber of fields per record, the total 
nunber of records, the length of the header record itself, and 
the length of each data record are all a part of this one 
record. 

Because oi its central role in organizing the Personal Record Keeping cotmnand module, this 
is where we will begin our article in next month's newsletter. 



THE HEART AND SOUL OF PERSONAL RECORD KEEPING 



by Don Donlan <Part 11) 

The HEADER subprogram which resides in the Personal Record Keeping conanand module provides 
access to a "data dictionary". This dictionary defines the data that has been created by the 
PRK module. As I mentioned in the last article there are two -formats or ways to code the "call" 
io-r this subprogram. For numeric information use [ CALL H<R/W,INFO,FLD,V) ] and to read/write 
character information use the format [ CALL H<R/W, INFO,FLD,V*> ]. If the "R/W" variable is "1" 
the subprogram will "read" information from the Header record. If the "R/W" variable is "0" 
(lero), the subprogram wr i tes information to the Header record. "V" and "V*" are used, 
depending on which kind of information you wish to retrieve (V for numeric; V* for character). 
The "FLD" variable is sometimes ignored, sometimes required, depending on what number is in the 
"INFO" variable. "INFO" is a number between 1 and 14 which determines what Header record 
information you will read or write. A "FLD" number is ignored for the first 8 kinds of 
information; the rest require a "FLD" number. The fourteen kinds of Information stored by the 
Header record are as follows: 

1 = File Name up to 10 characters long. 

2 = Day of the month <a number from 1 to 31). 

3 = Month <a number from 1 to 12). 

4 = Year <a number from to 99). 

5 = Number of fields per record (a very important number because it will de- 

termine how many times we will need to ask for information found for the 
information types 9 thru 14 shown below). This number is automatically 
incremented each time a new "highest numbered" field is defined 

6 = Number of records in this PRK file <also automatically incremented each 

time a new "highest numbered record" is written). 

7 = Size of Header record (length is automatically calculated and entered). 

8 = Size of the Data record (this too is automatically calculated and stored). 

Now we come to the Header record information that describes the 
individual fields within each data record. This sequence of information 
is repeated for each of the fields, up to the number of fields indicated 
in Header record information 5 (see above). If "FLD" is 1, the first 
Data record is defined; if 2, the second; if 3, the third and so on. 

9 = Name of the data field (up to 10 characters long). 

10 = Type of Data field: l=character 2=integer 3=decimal 4=Exponential . 

11 = Size of Data field. This depends on the type: 

Character data fields are 1 to 15 bytes long. 
Integer data fields are 1 to 10 bytes long. 
Decimal data fields are 2 to 11 bytes long. 

Exponential or scientific notation fields are 8 to 13 bytes long. 

12 = Number of decimal places. For character and integer data, this is zero. 

For decimal data, the number would range from 1 to "size" minus 1. 
And for Exponential or scientific notation the number is to 5. 

13 = Amount of space required for the Data field (as set by Header subprogram). 

14 = Position of this field within Data record (as set by Header 



As you can see, with this kind of information you can reveal the data base structure of 
this PRK file. I don't know if you could use a BASIC program and the Header subprogram to tjr i to 
your own data base structure. It would be Interesting to see what would happen. A typical 
Header record might look like this: 



53 



THE HEART AND SOUL OF PERSONAL RECORD KEEPINS 



by Don Donlan (Part II) 



MYREC0RDS_1 0_22_83_2_1 5_50_30_NAME_1_1 5_0_1 5_1_PH0NE NO 5_0_1 5_1 6 

1 use the "_" character to set the "INFO" -fields apart. Above would be header record for a 
file called "MYRECORDS" which was last used October 22, 1983. It says there ape 2 -fields for 
every Data record, 15 such records in the -file. The length o-f the header record itsel-f is 30 
bytes; the size of each data record is 30 bytes. The name of the first of our two fields is 
"NAME*, which will have up to 15 characters of information in it, so we'll reserve 15 bytes. 
This first field starts in position 1 of the Data record. Our second sample field is called 
"PHONE NO.", again a 15 byte character field that needs up to 15 positons in the record, so 
we'll start it in position. 16. The sample Header record above could be the start of a phone and 
telephone number data base that was created by the PRK conmand module. If you have the PRK 
module you might want go ahead and make up such a sample file and store it on disk for use by 
the programs that we will be presenting at the end of these articles. That way you will be able 
to 'test things out' on your own. 

Next month we will review the 6ETPUT subprogram, the utility that reads and writes the Data 
records created/re treived by the PRK command module. 



PLATO Courseware Puts Twist into Traditional Studies. 

PLATO educational courseware was developed wi th genius that would have made evfen the 
immortal Greek philosohper, Plato, smile. 

This unique, computer-assisted learning system was developed at the University of Illinois 
the early <40's with funding from the State of Illinois and the National Science Foundation. 

In 1962, William C. Norris, founder of Control Data Corporation <CDC) of Minneapolis, took 
an interest in the idea behind the PLATO system. And as a result, the company corwnitted itself 
to the development of the system, and it pioneered the use of computer-assisted learning. The 
PLATO system has since been a proven learning tool in school systems, universities, businesses, 
industries, and governments worlcfojide for more that 20 years. Students of all ages have found 
the PLATO system to be an exceptional learning tool. 

Through an exclusive " agreement between Texas Instruments and Control Data, PLATO 
educational courseware in the areas of Basic and High School Skills will be available for use 
with the TI Home Computer. 

The PLATO courseware designed for the TI Home Computer utilizes a particularly effective 
learning strategy which combines the use of tutorials and drills. 

In a tutorial, the student is guided step-by-step through all the new information. The 
drills then allow students to evaluate the level of proficiency they gained from earlier 
tutorial work. 

An entire integrated set of over 450 programs in 44 subjects for grades 3 through 12 will 
provide users with a comprehensive educational library. 

PLATO Basic Skills courseware will be available for students in grades 3 to 8. The 
curriculum consists of mathematics, reading, and grammar. Users may choose from 64 courses. 

Courseware also is available for students at the high school level. The PLATO High School 
Skills curriculum consists of math, reading, writing, science, and social studies. A total of 
44 courses will be available in the High School Skills series. 

Every PLATO program requires the use of the PLATO Interpreter cartridge. The Interpreter 
cartridge is packaged with survey diskettes designed to evaluate a student's basic skills, 
strengths and weaknesses in an objective way. 

A Parent's Questionnaire is enclosed with every Interpreter cartridge. Parents with 
elementary age children can use the questionnaire to evaluate a child's skill level using a 
subjective means. The Interpreter cartridge has a suggested retail price of *49.95. 

To operate PLATO courseware, users need a console and monitor <or television and adapter), 
the PLATO Interpreter cartridge, a Peripheral Expansion System, a Disk Memory System, and a 
Memory Expansion Card. 

s5V 
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1 
110 

1 2i:i 

130 
140 
150 
1 60 
170 
ISO 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
40 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
525 
530 

540 
550 
560 
570 
530 
590 
600 
6 1 
o20 
C.30 
640 
650 
•f.6n 



REM INSERT THE P-R-K COMMAND MODULE AND USE THE SUBPROGRAM^- THAT ARF 
REM RESIDENT THERE TO CREATE TWO SEPARATE DISK FILES: ONE IS ^HE 

HEADER RECORD THAT DESCRIBES THE STRUCTURE OF THE DATA- 
RtM THE OTHER IS A FILE OF THE DATA ITSELF. ' 
REM BEFORE LOADING THIS BASIC PROGRAM, 



REM 
REM 
REM 
REM 
REM 
REM 



EXECUTE THE FOLLOWING THREE BASIC COMMANDS 

> CALL FILESU) 

> CALL P( 10000) [To prepare a 

> NEW [To clear out 
Now load and run the following program, 
by a comment about the purpose o-f that 

CALL L<"DSK1.PRKFILE",C) REM Load da't^'f TTi" n t o reserved ar^a. 
IF C=0 THEN 650 REM Check error indicator: 0=-failure, nc.n-0=O l< 

OPEN «1:"DSK1.PRKHEADER", RELATIVE, INTERNAL, OUTPUT, FIXED 



da t a ar e a , ] 
any old data. ] 

Each line will 
statemen t . 



be foil owed 



CALL H< 1 , 1 ,0 ,F*> 
CALL H<1 ,5,0,F> 
CALL H( 1 ,6,0 ,R) 
PRINT «1 :Ff-,F,R 
PRINT F*;F;R 
FOR 1=1 TO F 
CALL H< 1 ,9, I .F*) 
CALL H<1 .10,1 ,T) 
CALL H<1 ,11 ,1 .W) 
IF TOl THEN 370 
S=S+W+ 1 
GOTO 380 
S=S+9 
CALL H(l 
PRINT #1 
PRINT F*;T;W;D 
NEXT I 
CLOSE «1 
OPEN 



REM 
REM 

REM 



12, I ,D> 

REC I :F*,T,W,D 



Read the internal file name. 
Read the number of fields per record. 
Read the number of records in the file. 
REM Write Header File record. 
REM Print this information on the screen. 
REM Begin a loop to write field definitions. 
REM Read the field name. 
Read the field type. 
Read the field width or size. 
Field is alpha (TYPE is not equal to 1) 
So add width + 1 to record size. 
REM Then skip around next lines of code. 
REM With numeric field, add 9 to record size. 
REM Read the number of decimal places. 
REM Write this information to HEADER file. 
REM Print this i n f or ma t i on to the screen, t oo . 
REM Return to write remaining field definition=. 
REM Close the HEADER; open DATA file when done" 



REM 
REM 
REM 
REM 



«1 : "DSKl .PRKDATA" , SEQUENTIAL , INTERNAL , OUTPUT ,UARI ABLE S+2 



FOR 1=1 TO 
PRINT I 
FOR J=l TO F 
CALL H< 1 , 10 , J,T) 
IF T=l THEN 540 
CALL G< 1 , I , J,C,D) 
IF C=0 THEN 520 
D=-9 . 9999999999999E+ 1 27 
PRINT «1 :D; 
PRINT D; 
GOTO 590 

CALL G( 1 , I ,.J,C.F*> 
IF C=0 THEN 570 

p $.=r " " 

PRINT «1 :F*; 
PRINT F* ; " " ; 
NEXT J 
PRINT #1 : " ■SI- 
PRINT 
NEXT I 
CLOSE «1 
STOP 



REM Set up a loop to read records and print DATA 
REM Print record number to the screen. 
REM Set up a loop to read fields in each record. 
REM Read the field type. 

REM De term i ne if field is al pha or numer i c . 

REM For numeric, retrieve data in a numeric var. 

REM If 'missing data' code is not 0, 

REM enter a default value that can be tested for 

REM otherwise, print the numeric data to the fil 

REM and to the screen. 

REM go around the lines that handle alpha DATA. 
REM Re t r e i v e c h ar ac t e r da t a i n t o a c h ar ac t e r v ar 
REM If "missing data" code is not 0, 
REM enter a default value that can be tested for 
REM otherwise, print the alpha data to the f i 1 e- 
REM and to the screen (with an additional blank) 
REM Go to the next field within the record. 
REM Finish by printing the entire record to file. 



to the screen , 
next record in 



PRINT "ERROR IN LOADING PRK FILE." 

STOP 



REM F i n i sh p ending p r i n t 
REM Go on to process the 
REM Close the DATA file. 
REM Stop or End program execution. 

REM Error message if load 



t o o 
the 



file 



fails 
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12 
14 
16 
18 
20 
22 
24 
26 
23 
34 
36 
100 
110 
120 
130 
140 
150 
160 
170 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
OPEN 



The -fonowing BASIC program takes the HEADER and DATA files 



created in the previous program and converts them back 
PRK -files which can be saved by the PRK save routine. 



into 



Before running the program, execute the fol1oiA)ing BASIC commands: 



CALL 
CALL 
NEW 



FILES( 1 ) 
P<10000> 



190 
200 
21 
220 

'0 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
"90 



500 
51 
520 



+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
«1 :"DSK1 .PRKHEADER" , RELATIVE , INTERNAL , INPUT , FIXED 



INPUT ttl :F*,F,R 
PRINT F*:F:R 
CALL H(0 , 1 ,0 ,Ff) 
FOR 1=1 TO F 
INPUT «1,REC l!F*,T,W,D 
PRINT F*:T;W;D 
CALL H<0 ,9, I ,F*) 
180 CALL H<0 , 10 , I ,T) 
IF T=4 THEN 220 



CALL H<:0 , 1 1 , I ,IaI> 
IF T<3 THEN 230 
CALL H(0 , 12, I ,D> 
NEXT I 
CLOSE #1 



REM Read file name, fields, and of records. 

REM Print this information on the screen. 

REM Write the file name to restored PRK header. 

REM Set up loop to create rest of PRK header. 

REM Read field name, type, i-ndth, and dec. places. 

REM Print retrieved information to the screen. 

REM Write the field name to the PRK header. 

REM Write the field type to the PRK header. 

REM If scientific notation, <T=4) write no width. 

REM Write the field width to PRK header. 

REM For character and integer fields, do not 

REM write the decimal places to PRK header. 

REM Go to next field in HEADER record. 

REM Close HEADER and open DATA file. 



OPEN # 1 : " DSK 1 . PRKDATA " , SEQUENT I AL , I NTERNAL , I NPUT , MAR I ABLE 



FOR 1=1 TO R 
PRINT I 
FOR J=l TO F 
CALL .H< 1 , 10 , J ,T) 
IF T=l THEN 380 
INPUT ttl :D; 
PRINT D; 



REM Set up loop to read data and rebuild as PRK. 

REM Print the current record number to the screen. 

REM Set up loop to read the fields for DATA record 

REM Recall what type of field you are about to get 

REM If numeric CTOl), then 

REM Read into numeric variable. 

REM Print the retrieved data to the screen. 



IF D=-9.9999999999999E+127 THEN 360 



null data 



I , J,D) 



CALL G<0. 
GOTO 440 
CALL G<2, I , J,D) 
GOTO 440 
INPUT ttl :F*; 
PRINT F* ; " •' ; 
IF Ft="?" THEN 430 
CALL G(0 , I , J,F*) 
GOTO 440 



CALL 6<2 
NEXT J 
INPUT «1 
PRINT F* 
NEXT I 
CLOSE 1^1 
CALL S^-'DSKl 
IF COO THEN 
PRINT "ERROR 
STOP 



I , J,F*) 
F* 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

PRKFILE".C) REM 
520 REM 
IN SAVING PRK FILE ! 

REM Stop 



REM If default value, write 
Normal data is written to PRK file. 
Skip around alpha section and go to next field 
This code indicates missing numveric data. 
Skip around alpha section and go to next field 
Alpha data is read into character variable. 
Retrieved data is printed on the screen. 
Default value indicates missing data for field 
Normal dat a i s wr i t ten to PRK file. 
Continue to loop for the next field in 
Indiate that character data is missing, 
End of field loop. 

Finish record by reading end of record 
F i n i sh pend i ng print to the screen. 
End of record loop. 
CI ose the DATA file. 

Save the PRK file that has now been rebuilt 



record . 



'9" 



Check for error 
! " REM I f 
or End the 



in trying to save PRK file, 
error, flag message on screen 
current program. 



St 



BEYOND PERSONAL RECORD KEEPING 



by Don Don Ian 

Thanks to an inquiry on the bulletin board, I thought I would share with you the 
•following program which sorts PRK records according to the first -five fields in the order 
of determined by the 'key', which in this case is the first five character fields. I think 
the annotation should help explain what is going on in the program. I might caution you 
that since this is a BASIC program you won't see any increase in speed over the painfully 
slow sort that is already available in PRK. This simply lets you sort PRK records using 
any number of fields. It would be wise to have a printed or hand copied file structure 
available if you plan to modify this program to sort one of your files. In our example 
here, we use a file with 15 fields <5 character and 10 numeric), but you could modify that 
to suit your needs. Have fun! 

1000 REM The following BASIC program BUILDS A PRK DATA FILE SORTS 
1010 REM the file SORTWK. Then it restores the data to the PRK file. 
1020 REM Requires use of Disk drive and diskette with enough room to 
1030 REM build a relative record work file with which to do the sort. 
1040 REM 

1050 REM Before running the program, enter TI BASIC with the PRK module 
1040 REM inserted in the console. Then execute these BASIC commands; 
1070 REM > CALL FILESd) 
1080 REM > CALL P< 10000) 
1090 REM > NEW 
1100 REM 

1110 REM Load this program into memory <OLD DSKl .??????????) and RLN. 

1130 OPlim BASE 1 REM Set array index to begin at 1 . 

1140 DIM A*<15) REM Build and array to store default values. 

1150 At <1)=''000000'' REM Default values will be used to replace where 

1160 At<2)="00" REM no data has been entered into the PRK file. 

1170 A*<3)="0000" REM There should be as many array/default values as 

1180 A*<4)="0000" REM there are fields in the PRK record. 

1190 A$<5)="0000" 

1200 A*<<S)="00000" 

1210 A$<7)=*0000.00" 

1220 A*<8)="0000.00' . 

1230 A*<9)="00000" 

1240 A*<10)="00000" 

1250 A*<11)="00000" 

1260 A$(12)-'00000" 

1270 A*<13)="000000.00" 

1280 A*<14)="000000.00" 

1290 A*<15)="0000" 

1300 CALL CLEAR 

1310 INPUT "ENTER NAME OF THE PRK FILE TO SORT >":FILE* 

1320 CALL L<FILE*,C) 

1330 IF C=0 THEN 1660 

1340 CALL H<1,1,0,F*) 

1350 CALL H<1,5,0,F) 

1360 CALL H<1,6,0,R) 

1370 S=0 

1380 FOR 1=1 TO F 
1390 CALL H<1,9,I,F«) 
1400 CALL H<1,10,I,T) 
1410 CALL H<1 ,11 ,1 ,U) 
1420 IF TOl THEN 1450 
1430 S-S+W+1 
1440 GOTO 1460 
1450 S=S+9 

1460 CALL H<1,12,I,D) ^~-) 



BEYOND PRK, cont'd 



1470 NEXT I 

1480 OPEN «1 :"DSK1 .SORTWK" , RELATIVE R, INTERNAL , UPDATE .FIXED S+1 

1490 FOR 1=1 TO R 

1500 RESTORE «1 ,REC I 

1510 FOR J=l TO F 

1520 CALL H(l ,10,J,T) 

1530 IF T=l THEN 1590 

1540 CALL 6(1 .1 ,J,C,D) 

1550 IF C=0 THEN 1570 

1560 D='v'AL<A*(J)) 

1570 PRINT ttl:D; 

1580 GOTO 1630 

1590 CALL G<1 ,1 ,J,C,F*> 

1600 IF C=0 THEN 1620 

1610 F*=A*<J) 

1620 PRINT ttl :F*; 

1630 NEXT J 

1640 NEXT 1 

1650 GOTO 1680 

1660 PRINT "ERROR IN LOADING PRK FILE." 
1670 STOP 

1680 6AP=2'^1NT<L0G<R)/L06(2:))-1 

1690 PRINT "Beginning sort o-f "&STR$<R)&"records." 

1700 FOR 1=1 TO R-GAP 

1710 FOR J=I TO 1 STEP -GAP 

1720 REM According to PRK -file structure, we INPUT 5 char. 10 numeric 
1730 REM fields when we read the record. Your situation may differ. 
1740 INPUT ttl.REC J : SU , S2* , S3* , S4t ,S5$ , S6 , 97 , S8 ,S9 , SO , SA , SB ,SC , SD , SE 
•1750 INPUT «1, REC J+GAP : 2$ , B$ , C* , D* , Ef , FX , 6X ,HX , IX , JX ,KX ,LX ,MX ,NX , OX 
1760 REM For this file we build a 'Key' made up of the 2nd-5th and 1st 
1770 REM fields of the record. You may build your sort 'key" differently. 
1780 X*=S2tifS3*&S4f&S5$&Sl* 
1790 Y$=Bt&Cf&D$&E*&2* 
1800 IF Xt<=Y* THEN 1840 

1810 PRINT «1,REC J+6AP : SI* ,82$ , S3* , S4$ , S5$ , S6 , S7 , S8 , S9 , SO . SA , SB , SC , SD , SE 

1820 PRINT «1,REC J : 2* ,B* ,C* , D* , E* , FX , 6X ,HX , IX , JX ,KX , LX ,MX ,NX , OX 

1830 NEXT J 

1840 NEXT I 

1850 PRINT GAP 

1860 GAP=INT< GAP/2) 

1870 IF 6AP>0 THEN 1700 

1880 PRINT "Restoring sorted data and sawino as PRK file with name of ";&F1LE* 

1890 FOR 1=1 TO R 

1900 RESTORE «1,REC 1 

1910 FOR J=l TO F 

1920 CALL H(l ,10,J,T) 

1930 IF T=l THEN 1970 

1940 INPUT «1 :D, 

1950 CALL G(0,1 ,J,D) 

1960 GOTO 1990 

1970 INPUT «1 :F*, 

1980 CALL G<0,I ,J,F*) 

1990 NEXT J 

2000 NEXT I 

2010 CLOSE «1 !DELETE 

2020 CALL S<F1LE*,C> 

2030 IF C THB-i 2050 

2040 PRINT "Error in Saving PRK file." 

2050 STOP ^ 



PERSOnIAL record keeping & hWVARRONE'S DATA a=»SE MANAGEMENT 



by Don Don Ian 

What I intend to accomplish in this article is a comparison that will giye you 
some idea o-f the things to look -for when deciding on a data base management 
tool -for use in your record keeping. As most of you know I have been using the 
TI Personal Record Keeping cartridge -for some time, but now Navarone Industries 
has come out with a new cartridge and diskette package called Data Base 
Management. Following are points o-f comparison to be considered i f/when you 
want to invest in this kind o-f so-ftware -for your needs. 



PERSONAL RECORD KEEPING <PRK) 



REQUIRED HARDWARE: 

PRK works solely within the console's 
memory, more precisely using about lOK . 
o-f memory to store your data. 
DATA RECORD: 

Maximum would be 15 fields of 15 char- 
acters each <165 bytes). Scientific 
notation may be used. Number of all 
records is determined by lOK divided 
by size of one record. Record defi- 
nition Is stored with data under one 
file name in PROGRAM format that can 
only be accessed after conversion. 
Records retrieved by number only. 
SORT FEATURES: 

Sorts only one field at a time using 
BASIC routine that is very slow. It 
can perform mathematical transforma- 
tions to calculate new data fields. 
PRINTOUT OF DATABASE: 
Report format or page<record) format 
are your only choices. No totals. 
Personal —Repor t Generator cartridge 
lets you define up to 127 characters 
per report line (compressed mode). 
EASE OF USE: 

PRK is fully menu driven, easy to use 
in a fixed screen display. The name 
of the field is used to prompt for 
the data. Field name is limited to 
10 characters. No help prompts used. 
You can add new fields only with the 
use of Personal Report Generator. 
But only until 15 field maximum is 
reached . 



DATA BASE MANAGEMENT (DBM) 



DBM uses both console and 32K memory 
so you need to have both memory expan- 
sion and a disk drive. Data uses 24K. 

Maximum of 255 characters; size/number 
of field<s) limited only by 255 record 
limit. Total number of records is de- 
termined by disk space available. 
Separate SETUP and DATA files are used 
used to define/store your records in a 
DISPLAY/FIXED format. Then other pro- 
grams can easily read these records. 
Record keyCs) must be chosen. in SETUP. 

May read up to 6 fields in single sort 
using an ASSEMBLY routine that is very 
fast by comparison. No transformation 
of data, even on printout can be done. 

Records can be written with great deal 
flexibility; headings/totals possible. 
Maximum print width of 80 characters 
means that report lines are not as ' 
flexible to define. 

DBM requires k/'ERY CAREFUL reading of 
the user manual. There are multiple 
uses of FCTN keys which aren't obvious 
to a new user. Field prompts are not 
limited, except by screen size. Added 
help text available. New fields may 
be added without loss of data; new 
SETUP must be generated to access it. 



I am very hard pressed to say which one is better because the plusses and 
minuses of both systems tend to balance one another out. The obvious choice is 
DBM for the large database user. For the occasional user, or one who keeps a 
lot of smaller lists, then PRK would be my recommendation; it doesn't requires 
as much of the user. And, for me, the math transformations make PRK unique. 
DBM, on the other hand, would be best suited for the advanced or full-time 
data base user who is looking for a tool to streamline their recordkeeping 
requirements and provide them with an easy means of building data files that 
can be used in more advanced programming applications. Neither system meets 
my 'ideal', but both have some very useful features worth your consideration. 
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PERSONAL REPORT GENERATOR 



TI LOGO II LEARNING IS REAL FUN 



by Dennis Sher-fy 

Most people are ■familiar with Personal 
Record Keeping <PRK), especial/ with the 
series o-f articles written by Don Donlan. 
Personal Report Generator, <PRG), a 
so-ftware cartridge from TI , is a valuable 
companion to PRK, 

PRK is great -for setting up -files, adding 
and deleting records, and sorting -files. 
However, it only allows you to print the 
data in three -formats. Iwo o-f the 
•formats are data tables. But what i-f you 
want to use the data -for other purposes, 
such as printing address labels -for your 
Christmas card list? 

PRG is exactly what you need. PRG allows 
you to design reports in ANY -format you 
wish. You can include text or spaces on 
any line, and print values -from your data 
■file within the text. Instead o-f numbers 
at the top of data columns, as produced 
by PRK, you can print titles above your 
columns. PRG does not print the data 
structure at the beginning of each 
printout, as does PRK. PRG prints field 
number 0, (the record or page number), 
only if you want it to do so. 

In addition, PRG lets you add new fields 
to your file, lets you delete large 
numbers of records at one time, (such as 
deljete pages 10-56), and combines two or 
more compatible files into one large 
file. 

I have used PRG to print mailing labels. 
The "page" is defined as 6 lines long. 
This prints an address oh each label, 
then skips to the proper starting 
position on the next label. 

PRK allowed about 200 records per file, 
but my file was about 400 records in 
size. I entered the records in 
alphabetical order, creating two, 
200-record files. With PRG, I was able 
to divide the files into four sets and 
merge the two low Zip-code sets and the 
two high Zip-code sets to form two new 
files which would print 400 labels in 
Zip-code sequence. 

PRG is also used with the Statistics 
Module and has been available for about 
$12. 



by Walt Maes 

The following article was copied from 
"Suncoast Beeper", Newsletter of the Suncoast 
99'ers, 945 Montocello Blvd., North, St., 
St. Petersburg, Florida 33703. 

Don was over to my house last night and I was 
having a problem with page 36 of the Logo II 
book. It shows you the commands to make 'a 
perfect triangle. Then it shows you six 
triangles with a common point and then six 
more triangles with the same point, but 
starting 30 degrees from the other. We 
started out just to make the six triangles 
from one point. We tried all kinds of angles 
and line lengths, and tested each one. You 
never seen triangles put into so many ways as 
we did. We built bridges, windmills, and many 
other things before we finally got the answer. 
After we did get the six triangles from one 
point we sat back to look at our work and 
found we had drawn a perfect 3 D cube. 

The great thing about learning Logo is nothing 
is ever wrong, you have just found out another 
way to draw a picture. It maybe in modern art 
or classic art. That is for you to decid 
but it's fun to reach your goal. One of 
error messages is "Tell Me More", now how nice 
can a mach i ne be? 

If any of you have wondered how to stop at a 
given number of times like building stairs, 
that will go on endless if you use their 
commands and then try this: 

TO STAIRS :SIZE : COUNT 
REPEAT : COUNT C RSQUARE :SIZE 
MOUE :S1ZE ] 
END 

As you know, size is the length of a line in 
the square and count is the number of stairs 
you want. Now you must have RSQUARE and move 
in your dictionary already to make this work. 

To make the 3 D cube, enter this: 

TO CUBE 

REPEAT 3 [ TRI RT 120 ] 
RT 60 

REPEAT 3 [ TRI RT 120 ] 
END 

To make this work, you must have put TRI in 
your dictionary. 

That's as far as I have gotten this month. 
)Lets see what I learn by next month. 



TI LOGO ^lABLES . 



by Georoe Paschetto 



The following article cranes to the HUGoer Newsletter ^roni the 
'Computer Bridge.' Newsletter of the St. Louis Users Group 
via the LA ?9'ers Topics, Gardenia, Cali-fornia. 

To rsake your BOX procedure run a di-fferent size box each 
time, you can use a variable for the side. Type TO BOX and 
jress enter ff^CE. In the EDIT raode, the cursor appears atter 
the procedure name at the screen's top for adding variables, 
50 type the variable's narae (S for SIDE) here. Nw to use 
the 'variable, type ;S <the colon is required when the 
variable is used instead of a number) where the 50 was. It 
should look like this: 
TO BOX S 

REPEAT 4 CFD iS RT 901 FD :S will be the box's side. 
END fctn 9 (back) 

Now type BOX « (some number) and you'll get a box the size 
specified. If you type BOX and no number, or try to use the 
STAR procedure, the computer will cone back with TELL HE 
MORE. BOX needs a number now in order to run, and any 
crocedure that uses BOX now has to provide one. To use STAR 
new, you'll have to add 



a variable 

TO STAR S 

REPEAT 6(B0X :S RT 60) 

mo 



.....or a number. 
TO STAR 

REPEAT 6lBm 50 RT 601 
END 



fctn 9 (back) gets you back to the turtle. 

Add this to chance the number of boxes in the star: 
TO STAR S TURf^S 

REPEAT ;TURNS[BOX ;S RT 3iO/:TURNS] 
END 

In turtle raode, type STAR ti it 'enter'; the first number will be' 
the box size, the second number will be hoi.^ many boxes there are 
in the star. To see your procedures type "NOTURTLE' enter, then 
PA (print all), when done type "TELL TURTLE" .again to return to 
the turtle. 

If you have a particular interest or question concerning LOGO 
please write to George Paschetto, Apt. S5 255 University, 
Raddiff, K1 40160. 



DID YOU KNOU? 

Star Micronics, <procjucers o-f the 
Gemini 10 and lOX printers) has published 
an addendum to their Users Manual for the 
Tl 99/ 4A users? 

This -free addendum contains a 12 
page list o-f special instructions and 
programs -for the TI 99/4A, along with DIP 
switch settings and tips for using italic 
style type plus info on graphis and other 
features. 

A copy of this addendum may be 
obtained by writing to: 

Cherie Haddocks, Technical Support 
Star Micronics, Inc. 
3 Oldfield 
Irvine, CA 92714 

This article was taken from 
Lincolnland 99 Lookout, Newsletter of the 
Lincolnland 99 Computer Group, 
Springfield, Illinois and from Topics, 
Newsletter o-f LA99ers Computer Group, Los 
Angeles/San Fernando Ual 1 ey. California. 



P-CODE CARD: POP GOES THE DIODE! 

This article was taken, in 
full, -from the 99/4 Users O-f 
America, May, 1984 Newsletter. 

Ule have found a lOOy. -failure 
rate on the P-Code cards 
manu-f actured the -f i -f ty-second week 
of 1982. The card sel -f-destructs 
whether you use it or not! As long 
as it is plugged into the peripheral 
cabinent it draws power, even though 
it may be turned o-f-f. This is due 
to a factory de-fective diode that 
does not allow current to drain off 
properly. H you have a P-Code card 
that has popped its cork, don't take 
it to your friendly exchange center 
and shell out •$42 for a new one! 
Call TI CARES and request a new 
card! You don't have to pay for 
factory blunders, oversights, or 
what ever. The new cards have a 
germanium diode in them that 
corrects the problem. 



Richard J. Bailey 
USING LOGO II 4gA Church Street 

Gonic,M. H. 93367 
H you Hint to get a neii language for your cosputer that 
is easy to learn and fun to use no latter nhat your age-then 
LOGO is for you. TI LOGO has soiie liiitations but as long, as 
/ou realize what they are and work xithin thea, you'll have a 
lot of fun. 

LOGO is a language with built-in routines called 
'prititives'. These prieitives can be coabined into larger 
routines called 'proceedures'. Once a proceedure is defined} 
LOGO alloHs you to use the proceedure as if it were a 
prititive. You can continue to coabine priaitives and 
proceedures until you have one proceedure that does exactly 
xhal you nant it to do. 

First soae background. Long, long ago, in the age before 
video tersinals and dot aatrix printers (I heard ay parents 
talii about that tiaei) the only way to dran coaplex figures 
MS Kith expensive x-y plotters. The creators of LOGO at 
.1.1. T, designed a siaole robot with wheels and an uabilical 
cord connecting it to the coaputer. The coaputer. could 
direct the robot to 'walk' around on a piece of paper. By 
adding a ballpoint pen nhich could be raised and lowered, 
Ihey could create the coaplex pictures and graphs they 
xanted. To protect the electronics of the robot they covered 
it Kith a seaispherical 'shell'. Because of the shape of the 
cover and the speed Mith nhich it drew, they called it a 
'turtle'. Fvpft thounh thi? rnhnt ha^ been replaced by its 
video equivilence, the original naaes are still used. 

One of the easiest «ays to deaonstrate LOGO is with turtle 
qraphics. This is the facet of LOGO that .lost people are 
faailiar with. To draw with the 'turtle' is quite siaple 
once you get the hang of it. Conaands can be entered in 
either the iiaediate aode or stored by creating a proceedure. 
To draM a box you could type: 

. FO Z9 RT 90 FD !0 Rf IS FD 50 RT 9J FD 50 

in the iaeediate lode. This nill draw -a line up (forward) 
'J units, right 90 degrees, to the right (forward) 53 units, 
etc... until the bdx or square is drawn. To create a 
proceedure that does the saie thing type: TO BOX CENTER) then 
REPEAT 4 t FB 53 RT 93 ] <ENTER> 

fhen FCTJI 7 to exit the proceedure. Mow any tiae you 
enter BOX. a square will be drawn. 

rtore coaplex shapes can be created bv the saae aethod. fls 
an exaiDle, the proceedure called •SNOOPY' will draw Snoopy 
xith Uoodstock in his dog dish having a bubble bath coaolete 
with bubbles. This proceedure desonstrates the use of TILES 
and SPRITES with turtle qraphics. The sorites were created 
»<ith LOGO'S built-in sprite editor and the tiles with the 
built-in charecter editor. I have not included the tile 
definitions so you will see the undefined characters if you 
anter this proceedure. You can redefine these characters 
•Qurself, or if you don't nant to enter SNOOPY yourself, send 
«e iZ.ii, .our naae and address, and I'll send you a disk 
4ith SNOOPY and a couple of other eve openers. ' 

"ow for so*e consents. The turtle graohics are but a 
3<iail part of LOGO. Its sound, ^usic, and list lanipulative 
ioiiities are intriguing and are well covered in the lanual 
that cases with LC30. The TI inoliaentation of LOGO needs 
«ore i»e«orv because you get an 'OUT OF INK' aessage when ;ou 



draw to iiore than 1/3 of the screen area. You can get around 
this liaitation by coabining tiles for the background, adding 
sprites for aoveaent, and drawing with the turtle on the saae 
screen, 'fou, nay also find that once a character is redefined 
you can't reset it to its original shape, you have to 
redefine it with the editor. One other annoying feature is 
that there is no way to dear aeaory. If you 'RECALL' aore 
than one proceedure froa disk, both will reside in aeaory. ' 
Uhen you go to save, you save both proceedures under the naae '- 
/ou think you're saving one under. If you work within these 
liaitations, you will find you'll really enjoy LDGOc 

PROCEDURES 



TO SNOOPY 

! SNOOPY + WOODSTOCK 
; f » I I BY t » » » 
; RICIWRD J. BAILEY 
} oBA CHURCH STREET 
; GONIC. N.H. 033i7 
raL lURTLE HT ; SETUP 
C3 CB IS 
3XY 71 34 
LT 115 

REPEAT 10 [FD 2 RT 1 I : SNOUT 
REPEAT 6 CFD 4 RT a ] 
SH 180 

REPEAT 9 CFD 1 RT 23 FD 2 RT 20 ] ; NOSE 
SH ZZS 

RL=EAT 10 CFD 4 RT 10 3 
REPEAT 3 CFD J RT 5 1 
REPEAT 4 CFD 2 LT 15 1 ; HEAD 
REPEAT 7 CFD 2 RT 9 ] 
REPEAT 5 CFD 3 RT 3 ] 
REPEAT a CFD 2 RT 13 1 
REPEAT 3 CFO : LT 11 3 
REPEAT 15 CFD 3 RT 4 1 ; EAR 
REPEAT 16 CFD 2 RT 10 3 
REPEAT 9 CFD 2 RT 2 3 
SXY 95 33 SH a 

REPEAT 2 CREPEAT 9 CFO 2 RT 20 3 FD 10 3 i INNER EAR 

SXY 56 60 SH !0 

FD 1 RT 100 FD 5 RT 103 ; E'/E 

FD 1 RT H FD 5 

n;- 33 26 SH 231 

REPEAT 11 CFO 2 LT 7 3 5 NECX 

RT 20 

REPEAT 3 CFO 5 LT I ] ; SACK 

REPEAT 13 CFD 1 RT 3 3 : SCTTOH 

FD 30 ; FOOT 

REPEAT 10 CFD 1 RT 10 3 

FD 19 

RT ^0 FO 5 8K 5 LT 90 
FD 6 RT 13 

RT 90 FD 6 EK 6 LT 90 
REPEAT 3 CFD 2 RT 13 3 ! TOE 
SEPEAr 5 CFD 4 RT 7 3 
"H 

REPEAT 4 CFD 4 RT 3 : ; LEG 
zVi 50 -8 
;H 10 

REPEAT 16 C-D 2 RT 1 3 : CHEST 

REPEAT a CLT 5 FO 2 3 : NECK 

SVI 70 24 3H 113 

FC 13 RT -Jki FD 1 ! COLLAR 

RT '0 FD 13 

SSV 73 7 SH 191 

"EFcAT 3 CFD 4 LT 3 3 : ARM 

LT 35 

HEFEAT : CREPEAT 4 CFD 2 LT 45 3 RT 130 3 ; HAND 
SaV 57 -41 3H iZ 

SEFEA7 ; C.-EPEAT 13 ."FD : ^T 5 J RT 3 : TAIL 

OiSH 
CUPSLE I 
EtlJ 



31V -'1 -«3 SH 15 ; OISH 

n IS ST 75 FD 

Rt 73 ?0 15 3T 135 FO 57 
3JY -57 -*4 ;H 'id 
FD :Zi : SOITOriLl.ME 

rr -i.: : lo ; S!jocpy 

( 3 3 la 
P, <5 9 16 
PT ;? ii 16 
PT 33 11 16 
PT 39 12 16 
END 

TO eUBBLE :2Z 

PT 15 16 

PT 35 16 la 

PT 3a 17 16 

PT 17 15 17 

PT 33 16 17 

PT 64 17 17 
TELL 17 
CAfiRV 5 

siY -55 -16 ; uaoosToa 

SC 4 SS 3 

TELL CI : : 4 ] ; HIDE BUBBLES 
SXY -ai -23 
Sl J 35 ^ 

TELL Co 7 3 9 13 11 12 13 14 15 16 1 
S3 i .■ 
SXY -55 -23 
CARRY :£ALL 

EACH CSC iH SH -a ♦ ( RANDOfI ♦ YH / 3 ) 

SS ( 3 » YN / 2 ) 3 . 

FOP 

HAKE :ZZ M 

IF -.21 THEN BUBBLE- :ZI 

£S «i 'zZ 16 C3 

^ 17 CARRY 

LMD 

TO FOP 
WAIT 55 
HAKE "mS 
LA£EL: TELL :;iU!l8 
SC e 

flAKE ViURB :SU«B > 1 
IF :;{U!18 ) 16 THEN STOP 
50 'LASEL 

EhO I 
** COKE 



I 




"CompuUr sllU 
In Oie shop, JetJu'm'f' 



TI LOGO INTRODUCTION 
by George Paschetto 

Editor's Note: The -following 
article comes -from the "Computer 
Bridge," Newsletter o-f the St. Louis 
Users Group, via the August, 1985 
issue o-f "Topics," Newsletter of the 
LA 99ers Computer Group. 

LOGO is a programming language 
that does not use line numbers. It is 
organized into procedures that are 
named by the programmer. Typing in 
the procedure will cause it to run. 

When you start up, a ? will 
appear on the le^t o-f the screen. 
Type TELL TURTLE "enter". Now type 
REPEAT 4[FD 50 RT 90] 'enter' and the 
turtle will draw a box. (To erase a 
mistake be-fore' you press enter, 
backspace by holding the fctn key and 
pressing the 3 key.) 

REPEAT 4[ 3 will repeat what- 
ever is in the C ] 4 times. 

FD n causes the turtle to go 
-forward the given number. 

RT n makes it turn right n number 
o-f degrees <90 is a right angle.) 

The computer has been commanded 
but not yet programmed because what 
you typed is not stored in memory. I-f 
you want that command to run over 
again, you must make it part o-f a 
'procedure.' I'll name it BOX. Type 
TO BOX 'enter' and your screen will 
change. This is the EDIT mode. TO 
BOX is at the top and the cursor is 
still right a-fter BOX. Press 'enter' 
again and type REPEAT 4CFD 50 RT 90] 
(the end will move down.) Now to leave 
the EDIT mode, hold -fctn and pres 9 
(back.) 

Want a box? Type BOX and press 
enter. The BOX procedure will run. 
Use the FD n or RT n commands to move 
the turtle around and the BOX again. 
The box is now part o-f the turtle's 
vocabulary. You can actually add to 
the language throuh your own 
procedures. 

Another way to write a procedure: 
DEFINE "BOX [ C] [REPEAT 4CFD 50 
RT 90]]] 

The empty brackets in the 
beginning are necessary. 

The procedure can also be called 
-from another command or procedure. 
Type REPEAT <i[BOX RT 60] 'enter.' 
You-'ll get 6 boxes in a star pattern, 
(to run -faster hide turtle with HT, ST 
a-fter to show it.) It's the same thing 
as REPEAT 6[ REPEAT 4 [FD 50 RT 90] RT 
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HANDY TIPS FOR THE TI*?«7/4A COMRUTER 



BYTE-LINE 



Here are a few tips ior beginners (good for experienced programmers; too) 

01) U vou have the speech synthesiser and the TEII cartridae here is a trick 
debugging programs. All you have to do is enter your program, type LIST SPEECH and 
hit enter. The computer will read vour listing back to you! 

02) If you want to disable the quit key (Fctn +/=> type in CALL INIT :: CALL 
LOAD (-31806,16) and then enter. You must have Extended Basic. 

03) If you are going to save a program to tape and type OLD CSl : instead of SAVE CSl 
don't panic. ' Press FCTN and E together then press <ENTER>. This will take you out of 
the tape loop. 



you 



04) You don't have to enter line numbers in TI Basic or Extended Basic. Before 
start entering a program type in NUM n(l),n(2); where n(l) is the starting line number 
and h(2) is the desired increment. 

05) In TI Basic you can edit a line with with the Edit command or with the FCTN key and 
either the E or X keys. To use edit, type EDIT n (n = line number). The other way is 
to enter the line number and the press FCTN X or FCTN E. This is the only edit method 
recognized by Extended Basic. 

06) You can list programs to the screen in several ways. Try these; LIST, LIST n, LIST 
n-, LIST -n, LIST n-n. 

07) If you want or need to renumber the lines in a program either to make it. neater or 
make room for new lines you don't have to renumber them individually. Just enter the 
command RES n,n for Reseauence (starting number, interval between ..lines) ... 

08) When entering a listing in Extended Basic and several lines are very similar, you 
can save time by typing in the first line and hitting <enter>. Then press FCTN 8 
(REDO). Change the line number and make the changes to the line as needed and hit 
<enter>.. 

09) ■ Have you ever pressed ERASE by mistake and lost the whole line? Don't panic and 
don't hit <ENTER>. Instead press FCTN ? and <ENTER>. Your line will still be intact. 

10) In Extended Basic type in RUN CSl. Follow the instructions on the screen. It will 
load the program and then run it automatically. 

11) In Extended Basic you can use REM or ! to put documentation in a program that the 
program will ignore. 

12) When you want to stop a listing on the screen in Extended Basic, just hit any key. 
To start the list again, strike any key. 

13) You can add comments after a GQSUB or GOTO. They won't interfere with the program 
and you don't need rem or ! . 

14) With Extended Basic and a disk system, save a program under the name LOAD. When you 
start with this disk in the drive, it will load and run that program. 

15) If you have the TEII cartridge and the Speech Synthesiser type in the program on 
page 37 of the TEII manual. Try entering strings of K's, Q's, U's, W's, J's, or X's for 
different sound effects. Try mixing them for interesting sounds. 
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-TH I ^>JGS T I ME^^ER TOLD US 



SUBROUTINE SECRETS 



program full o-f GOSUBs and GOTOs can be hard ^oll,^^ In ° understand and fix them. But a 

u-here the GOSUBs and GOTOs are goiJg so you woulSil? haC.M^ "'""" 1' ""'"''^ *° 
understand wh.at its doing. . ''^^^ *° ''""*P the program just \o 

Vy^tr^E^ tuzi"; tviii^'^rZiToiV' "^r.- ^ 

the rest of the screen line, and the 1 „e SS^^. L^ = ' "° '""S" th»n 

c..;^;;rohr^^^L:n:ru;';ii;„eT?e ?L-.e^r?^: .-i^.-rL n 

nri WRITER TRICK! by Ed Kennedy; Cin-Day Users Group, Cincinnati, Ohio 

Here is a program suggestion -for routine users of TT-iJrit<.n xk x 
incode a pro.ra™ llstln, 1„ a letter or docuJnM^erlo™ "^r:^,' 1 o::^;:^:ra: I^L *° 

^ i„, \. °'" ^ t" »i activated. 

■ ?fr,ii; "f,"*'': or document's n,ain file the follo»i„g: 

pro,rir,n^Dj./s; f o^::t'x:rc:n ' L'Jt 1 n""d^r HeJ''' "s '° 

needless txp ln, and errors for Inclusion if "pr^^V! 1 si,' 1 „ Tutul'lr ZZ"l ""^ 
100 CALL CLEAR 

no .'FOR B=l TO 24:: PRINT ::NEXT B 

llo f^f^P3^A'r<5,nSI2E<nBEEP WLIDATE<LlALPHA):A*<0+A) 
122 .'ACCEPT AT< 5,1) BEEP :A*<0+A) 
130 PRINT A*(A) 
140 GOTO 120 

99-err:,,j'E"enSeTSASIc""v R^'lnrtKl" " ' ' procedure. For those fellow 

effect „hne using tMlIc;2lc^Crir::rra?r"'"°'''''''° ^" interesting 32-col™n 

A QUI RK 

The program shown in the above article was submitted to us by Eric Costello I* -nn 
be a quirk in the computer. H vou make a calrniatinn in *k Lostello. It ^.ppears to 

computer does not appear to be abTe to d" rm n The end ^J'.k''''" /^o"?^' CA*<0.A.>] the 
this case it uses SIZE <!)) It let/von ?!n! ^-i k ! '"P"* characters max or in 

let you use that con'e ly ^ \ll ,7 iZ Uke "'5' ^"^^h to 

put one in front o-f 120 Th i s w i H ' ll t von Hn !k exclamation marks out o-f 110 and 122 an 

xou can figure out wlfit IX gill IsUS^^Xir ^^^^"^^^^ 
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16) H vou have E«tendBd Basic and 32K type this in as the last line of your program: 
CALL INIT,.:i CALL PEEK(2,A,B) : : CALL LOAD (-31804, A, B) 

This Hill return you to the title screen when the program is ended. 

17) When haoked up to a black and white tv use CALL SCREENdS). This will disable the 
color generator and remove the vertical lines you may have seen 

^18) To speed up loading Infocom games, don't use Extended Basic. Use Mini- memory or 
E/A instead. To use these, select the load and run option and type DSKl.BOOT. When 
^thia is -finished loading, press ENTER until you get 

'the program name, then type START. On the Mini -Memory, you'll get an error after BOOT 
loads, but keep pressing ENTER and proceed as above. 

19) If you want to disable the keyboard for any reason type in CALL LOAD (-3257 2,128). 
You will have to turn off the console to regain control 

BYTE-LINE 



1 




! liS):i CALL L0AD(Z*33,ASC(It 

1 )) 

! 400 FOR I«l TO LEN«PROB$)!! 
1 P»ASC(SEE$(PR0E$,I,1))!: CAL 
i L LDAD(:»34+I,P):i NEXT I 




! THE FDLLDKIN5 PROGRAB MS 
I euSK'TTf!) BY STEVE KEINKHAHE 
.' R OF THE SOLON SfiOUP. THIS 
! LOAD PROSRAN MILL LET YOU 
I RL'N YO'JR PRC5RAN, CATALOG IT 
S TO PRINTER, OR EVEN DELETE 
! AN UhKANTEtl FILE... AND IT 
! ONLY TAKES UP 10 SECTORS! 


1 240 IF ABS(H(S))«3 THEN Bl«' 
j • ELSE 8»»' 'iSTSJJKCS)) 

i 2S0 Tt>TYPEI(ABS(H(S)))iSEGI 
1 (BI,LEN(B»)-2,:) 


1 

I 340 PRINT l2i'0SK':X$:'.'i'- 

! DISKNAflE«';Alli'AVAlLABLE»'i 
V}' USED»';U-V 

1 330 PRINT I2i' FILEHANE 
i SIZE TYPE'!' 


I 260 GOSUB 470 


1 410 IF LEN(PR0G$)<10 THEN 42 
ELSE 430 


i 10 CALL aEAR :: DISPLAY ATI 
} 3,i):"RUN AUTOBOQP Y' AC 
i CEPT AT(3,:0)BEEP SI2E(-1)VA 
1 LlEATE('YN')!n$ ii IF IIK) 
1 '7' TKEK END 


270 IF R»13 OR S«a OR H(S+l) 
>0 THEN 280 ELSE 340 


420 FOR I=LEN(PROG$)M TO 10 


360 COUNT'S ii S>1 


280 R*0 GOTO 490 

290 ACCETT ATi24.22)iEE? VAL 
IDATE(DI6IT,' •)Sl2E(-3)!PRfi 


NEXT I 
430 RETURN 


363 FOR 1*1 TO Q-1 

370 IF ABS(H{S))s5 THEN Bl»' 
! - ELSE 8t>' '&SThSIKlS)) 


1 100 IJ»'l* 

i 110 DIB AJ(97),H(98),J(97),K 

1 197) 

1 120 CALL INIT ' 


300 IF PRG«00 THEN i20 

310 IF PRGs97 THEN 330 ELSE 
IF PRG»98 THEN 340 ELSE IF P 
RG»99 THEN 370 ELSE IF PRG»9 
99 THEN »0 ELSE PROGS'AKPR 
6) . 


440 DISPLAY AT (1. I) ERASE ALL 
J'DSK':X$;' -DISICNAnE»';Al$: 
•AVAILABLE*'} V;" USED»'iU-V 

430 DISPLAY AT(3,4):'FILEHAB 

t sue lire S 


380 T$=TYPE$(ABS(H(S)})ISEGS 
(BS,LEN{BS)-2,3) 

390 PRINT l2:l!TABl3)iA$(I)s 
TAB(lS);J(I)iTAB(19);Tt :! S 
»S+1 


! 130 FOR I«l TO 5 :j READ HP 
1 £5(1):: NEXT I 


460 RETURN . ' 




393 NEXT I 


1 no DATA 'DIS/FIX- -DIS/VAR' 
I ,'1HT/FIX','INT/VAR','PR0GRA 
1 «• 

i i:0 CALL L0A0(-31B06,1&) 


320 GOTO 340 

330 GOSUB &80 ii DISPLAY AT( 
23,1):'INSERT NEM DISIC't'PRE 
SS ENTER MHEN READY* :: ACCE 
PT AT(24,23]:AA< :i CLOSE 11 
ii GOTO 160 

340 IF PROGIO" THEN 360 EL 
SE IF S<Q AND H(S*1)<)0 THEN 
230 ELSE 290 

330 CLOSE 11 

360 CALL PEEK(-31954,A,B):! 
GOSUB 380 !i RUN 'DSKX. 12343 
67890' 


470 DISPLAY AT(RM,1)!USIN6 
'll'!S ii DISPLAY AT(Rt4,4)i 
AI(S):t DISPLAY AT(Rf4,14):J 
(Slii DISPLAY AT(Rt4,l9):T$ 

480 RETURN 

490 DISPLAY AT(21,l)i'00 DEL 
ETE A FILE'! '97 READ NE« CAT 
AL0G'!'98 NEXT SCREEN 999 PR 
INT CAT': '99 END SaECTI 
ONi" 

300 GOTO 290 


610 CLOSE 12 ii S=COUNT :! G 
OTO 490 

620 GOSUB 680 :: DISPLAY ATI 
23. I)! 'DELETE MHICH FILE NAN 
E?' 


! 160 OPEN Ih'DSKl.", INPUT ,R 

! ELATIVE, INTERNAL 

1 170 INPUT ll:Alt,U,U,y 


630 ON ERROR 630 

640 ACCEPT AT(24,11BEEP!0EL» 
t! GOTO 660 


1 ISO Q,R,S>0 
1 190 80SUB 440 


630 DISPLAY ATI24.1)i'FIL£ I 
S PROTECTED' !! f6r I»1 TO 3 
00 :: NEXT I :: GOTO 490 


i 2C0 fi*QM 


310 GOSUB 680 :: DISPLAY ATI 
21.1): 'ENTER DATE' :i ACCEPT 
At(21,12):DI 

320 OPEN I2:'PIQ' :: PRINT 1 
2:CHR»l27)i'B';CHRIl3);CHRJ( 
27);*A'iCHRt(8); 


660 DELETE 'DSn.'iDELI 


' 210 INPUT tl:A$(Q),H(0],J(0) 

! 220 IF L£N(A$(Q))«0 OR 0«97 i 
! THEN 230 ELSE 200 


370 END 

380 :«At:!i+B-6553i ;: CALL 
PEEK(Z,A,B)!i Z>AI2S6*B-6SS3 
6 


670 CLOSE il i> GOTO 160 

680 CALL HCHAR 121,1, 32, l23h 
! RETURN 


IJ30 S«SM t: R=R+1 S 390 CALL L0AD(Zt29,LEN(PR0G» 


330 PRINT 12101 
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PRINTING FROM EARLY MODULES 

Editor-'s Note: The -following 
article was reprinted -from the 
May, 19S5 issue o-f The ROM 
Newsletter, Newsletter o-f the 
Users Group o-f Orange County, 
17301 Santa Isabel Street, 
Fountain Malley, CA 92708 via 
the April, 1985 issue o-f 
"MINI -MAG 99". 

"Kent Max'well -found a way to be 
able to print the Weight Control 
and Nutrition Module to a 
parallel printer. (Editor's 
notes TI produced these modules 
prior to the availability o-f an 
RS232 card with a RIO output, so 
their menus did not provide -for 
same . ) 

The procedure is as -follows; 

1. When setting up your -files, 
tell the computer that you will 
not be using a printer, then 
create your data -files 
accord i ngl y . 

2. When reviewing the -files, 
put in any -fictitious printer 
device name (i.e., RS232/8) and 
the computer will indicate 
DEVICE NOT FOUND. At this time, 
enter PIO, and the computer will 
allow access to a parallel 
pr i nter . 

The procedure may vary slightly 
between the various early 
modules, but the key is to avoid 
a printer i dent i -f i cat i on in the 
data unit process. Enter the 
device name when recalling and 
reviewing the previously entered 
data . 

Kent Maxwell is an avid TI 
enthusiast who is employed with 
the VA Hospital in Sepulveda, 
Cali-fornia on the security 
•force; and is also a member o-f 
Tex-Comp's Technical Consulting 
group . " 



SLOWING FAST DM- 1000 V3.I by Louis Guion 
(Courtesy of John Crev iston) 



Condensed 
newsletter. 



from; 



NET 



99er 



HCUQ, 



The newest version of DISK MANAGER 1000 
(DM1000, Version 3.1), suffers from the 
previously known defect of having any 
key which is depressed and held for only 
a moment, running away at breakneck 
speed and repeating several times before 
you can get your finger lifted from the 
key. Fast? Yes!, but a pain in the 
uh-huh! Well, you can fix it anytime you 
like, and set the repeat action just as 
fast, or as slow as you vjant to make it. 
You must have a single-sectoring program 
like DISKO or DISK+AID. Copy the file 
"MGRl" of DM1000 Version 3.1 to * NEWLY 
INTIALIZED*, *BLANK* diskette. You'll 
have only the one file. "MGRl" on the 
new diskette. 

Now, load your DISK+AID and either go. to 
sector >3S, or have the program search 

for the HEX string of 0S 03 

16 F9 03 80 00 A0 FF 00 C0 ID. The 
important bytes are #s >42 and >43 which 
are the ... 00 A0 . . . in the strinq 
above. >00 A0 is 160d, (decimal). You 
want to change this lS0d, or 00 A0 to 
another value which will slow down the 
repeat key. The range of acceptable 
values will fall between i60d to 2000d 
or hex values >00Aa to >07D0. 



TI TIP 

by Dan Either 

Here is a Tip ^o^ anybody tliat plays Infocon games, 
H you don't like tlie time it takes for a game to load 
from disk, don't use Extended BASIC! Use your Mini-Memory 
or Editor/Assembler instead. To use these, select the load 
and run option and type DSKl.SOOT. When this is finished 
loading, press enter till you get program name, then type 
START. 

On the Hini-Meniory, you wi)] get an error after BOOT 
loads but keep pushing enter and proceed as aboue. Here 
are seme ccinparisons of the load time for the different 
nioduies: 



Extended BASIC 3 minutes 
Editor/Asserabier 1.25 ninjtes 
Mini-Memory I.IS rainutes 



TAMING YOUR GORILLA 
by Jin Ellis 



Do you have one of those? It just won't 
do what you want it to! Well, perhaps I 
can help. After some tine spent looking 
through the manual, (if you don't care 
what you call it>, I found that I didn't 
know anymore about my son's gorilla than 
he did. I called Leading Edge some time 
back, and they sent me a program that 
supposedly would help, KELP! Recently, I 
purchased a book from Radio Shack that 
had been marked down, (the only time to 
buy), that contained information on their 
many various assorted printers. Oh, 
hadn't I mentioned we're talking about 
the Gorilla Banana printer? Well, it 
seems that many of the printers may have 
several things in common even though made 
entirely for someone else. To get on 
with why I'm writing this article, I have 
made some discoverys that may help some 
of you in your effort to use the Gorilla 
for something besides a paper weight. 
First off, I don't know if the serial and 
the parallel versions are the same or 
not. The one we have is the serial 
version. You can get what looks like a 
European/special characters set by using 
PRINT CHR$(n), where n has a value from 
160 to 191. This I found by trial and 
error, but was pointed out in the book on 
R/S printers. If you are interested in 
all points addressable graphics, (why 
else did you buy it?), I discovered by 
studying the listing that Leading Edge 
sent me and the R/S book some interesting 
commands as follows: 

CHR*(8) - Enter graphics mode 
CHR*(i5) - Reset to normal (10 cpi) 
CHR$(28),CHR*(nl),CHR$(n2) - Repeat print 
data, where nl=number of desired 
character to be printed, and n2=ASCI I 
value of the character desired printed. 

For instance, PRINT CHR$ ( 28 ); PRINT 
CHR* ( 200 ); PRINT CHR$(193), will print a 
double line useing the 1 and 64 dots, the 
128 is added to tell the printer of the 
correct graphics code. It should not do 
anything if you gave it 65 only. 
Characters are 7 dots high by 6 dots wide 
giving. 480 dot columns per 8.5 inch page. 
Now to determine the column number, which 
ranges from 128 to 255, we use the 



following format. 

1 X 

2 XX 
4 XX 
8 X X 

16 X X 
32 X X 
64 XXXXXXXXXXXXX 



/! 
/ I 
' I 



same as I I I I I 1—64+128=192 
right side 11111—32+64+128=224 

16+64+128=208 

8+64+128=200 

4+64+128=196 

2+64+128=194 

1+64+128=193 

Upon entering graphics mode the range of 
values needed to tell the printer what to 
print is from 128 (blank) to 255 (a 
column of 7 dots). If the printer has 
incremental line feeds, I have not found 
out that information as yet. To get you 
started here is a little program that 
will print out all of the possible dot 
column combinations. 

10 OPEN *1 :''RS232.BA=1200'' 

20 PRINT *1:CHR$(8); 

30 FOR X=12B TO 255 

40 PRINT #1:CHR$(X); 

50 NEXT X 

60 PRINT *1:CHR$(15); 

70 PRINT #1:''N0W LOOK AT THE COLUMNS 
CLOSELY TO SEE HOW THEY CHANGE." 

80 CLOSE #1 



You must use the pro 
talking to your prin 
another basic, just 
changes to converse 
port and baud rate, 
will hel p someone w 
to use these features 
trying it has been 
have any questions ju 
the HUGbbs or at the 



per statement when 

ter if you are using 
make the proper 
with your printer 
I hope that this 

ho has not been able 
before. I know how 
for my son. If you 

st let me know on 

meeting. 



6? 



DISK DRIVE SPECIFICATIONS 

VERSION 1.1, SEPTEMBER 12, 1983 
by Louis Guion, Startext 77536 




iC.D.C. 
JC.D.C. 

(Epson 

iHltachi 
'Matsushita 
{Matsushita 
iMicropolis 
SHitsubishi 



J 9409 !Full!DSDD!48 

19428 11/2 IDSDDI48 

|SD521 11/2 IDSDD|48 

SHFD505B "ll/l'l j" 

IJAS51 Sl/2 I { 

IJA5551-2 11/2 I I 

I1115V {FulllDSQDI 

M4831 J 1/2 !DSDD!48 I360K 



;360K i i 
I3&0K I I 
I360K i.4A>.4A 



I 



i I 
I I 
i I 



,-t 



ACCESS MOTOR J 
TIME I DRIVE I COMMENT 

I I 
i i 

IDrectI 

AMSECIDrectSO.K. in PBox 
^ - — ^ 

I i 

I : 
i i 



.'Mitsubishi 
JMPI 
JMPI 
JMPI 
!MPI 



IM4853 

IB31 

IB52 

S501C-200 
I502B-100 

•I- 



J 1/2 JDS0DI96 
:Fulli5S5DI48 



1/2 
Jl/2 
.| 



I 

IDSDD! 



•I- 



•I- 



I720K 
I 90K 



I 



l.3A!.7A 



I 



I 



I 



I Belt iSold in PBox 



•I- 



■I- 



: National 
•Panasonic 
iQumetrack 
•Qumetrack 
iQumetrack 
J- 



SJAS31-2 
JJA551-2 
J 142 
I 142LX 
5542 
I" 



il/2 IDSDD!48 I360K 
11/2 IDSDD! 48 I3&0K 
\l/2 JDSDDI48 I360K 
:i/2 IDSDDI48 I360K 
.'Full I :48 I 



I 

\ 
I 



I 

6MSECI 



I 



I Be It J Hi Php Reqmt 



•Remex 
S Sanyo 
•Sanyo 
•Shugart 
SShugart 



.'RFD480 

IFDA3200B/PC 

ISM5480 

J 4001. . 

SSA453 



!2/3 SDSDDI48 !360K \ J 

il/2 IDSDD:48 I360K i i 

il/2 iDSDD.'48 I360K i i 

iFulllSSSDI48 i 90K i I 

11/2 IDSDDS4S I3&0K I.&AI.6A 



IDrect! 

! i 
6MSEC IDrect I 

IBelt iSold in PBox 
6MSECI I O.K. in PBox 



J Shugart 
•ShuoArt 
'Siemens 
•Tandon 
I Tandon 
I- 



iSA465 
ISA473 
I FDD 100-5 
ITM30-1 
ITM33-2 
■I- 



11/2 IDSaD!96 i720K I 
IJ/2 I 196 
IFull!SSSDS48 
Sl/2 ISSSDI 
Sl/2 IDSDD! 48 I360K i 



i720K 
il.AM 
i 90K 
I 



i 



6MSECi 



I 
I 

IBelt 
I 



•I- 

IFor the "AT" 
ISold in PBox 
I 
I 



I Tandon ! 1(353-4 li/2 IDSQD19& I720K 

i-Tandon iTM63-21. 11/2 I 8 

Tandon ITMlOO-1 SFull!SSSDI48 

iTandon ITMlOO-2 IFuHIDSDD!48 

{.Tandon ITMlOl-4 . I IDSQDI 



I 

I180K 
I360K 
I 



I 



I I 

i i 

iBelt i 

IBelt I 

i i 



iTEAC 
ITEAC 
ITEAC 
STEAC 
ITEAC 
I" 



IFD53A 
IFD35B 
IFD33BV-0& 
IFD55E 
iFD33F 
•i- 



il/2 ISSSDI I180K i 1 

11/2 iDSDD!48 I360K I.4AI.3A 

11/2 IDSDDI48 i360K 1 I 

Sl/2 iSSQDI96 iSOOK I t 

il/2 iosaos96 1 in I i 



6MSECI I 

6MSECSDrect80.K. in PBox 
6MSECSDrectlNo Hd Ld Sol 
3MSEC IDrectI 
3MS£CSDrectl 



iTEAC 
I TEC 

i Toshiba 
I Toshiba 
i Toshiba 



i< 



iFD53GFV- 

IFB303 

15401 

iND040 

iND040T 



AT 



tl/2 

\\/z 

il/2 
11/2 



iDSQDI9& II. 2M I I 

\<i^i vf I 9cm: i I 

IDSDDi - I I I 

III It 

IDSDDI I I I 



I 

I ^ IFor the "AT" 

I I 
i I 



lY.E.Data 

I 

I 

I 

I 



IYDS80 

I 

I 



•I- 



1/2 



I 



I 



I i 

1 I 

I I 

I I 

I I 



i i 

I I 

i I. 

I I 



i 



I 



i 



I 



•I" 



I- 



M^t ^1? Information is intended to help TI-99/4A u»«rs in Identifying disk 
fhiT^'n^-^Lr^"? comoatible Hith thier Peripheral Expansion Boxes and with 
veSdSr^adSSUf ««!''„?y'^?r'3 -i^i Inforaation had been garnered fro. 

bS uMd S^fh^il^Jf^^'i it is assumed to be correct, but must, none-the-less 
be used Hith caution due to transcription and other typograpAical errors. 

so hw^rJt^XS^*^Kt.^*" l2 *° t^>» Information presented, please do 

so bv contacting the author at Startext MC 77336. Your help 1« apprSciated I 
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PRINTER CONTROL CHARACTER/CODE 
CROSS REFERENCE CHART 



mi OF PRINTER 


EPSON MX80 


PROURITER 


GEMINI-lOX 


CARRIAGE RETURN ! 
LINE FEED 

FORM FEED <TOP OF PAGE) 1 
FORM LENGTH = U 


CHR$(13) 
CHR$(10) 
CHR$(12) 

CKR$(27)&'C'&CHR$(IIII) 


CHR$(13) 
CHRKIO) 
CHR$(12) 


CHR$(13) i 
CHR$(1D) 

CHR$(12) ! 
CHRi(27)i"C'4CHR$(llll) 


rrNPPrcQPn NnnP = mn 

LUnrKCSSCl/ nUuC — U1 

COMPRESSED MODE = OFF 
DBL. UIDTH MODE = W 
DBL. WIDTH MODE = OFF 
EMPtWSIS MODE = ON 
EHPWSIS MODE = OFF 
DBL STRIKE MODE = ON 
DBL. STRIKE MODE = OFF 


CHR$(18) 

CHRi(14) [SOI 

CHR$(20) 

CHR$(27)i'E" 

CHR$(27)i'F' 

CHR$(27)i'G' 

CHR$(27)&*H' 


CHR$(14) [SO) 
CHRIdS) 

CHR*(27)i'!' 
CHR$(27)&CHRI(34) 


CHR$(15) [SII ! 

CKRI(14) [SO] ! 
CHR$(20) . ! 


TO SET HORIZOrilAL TABS 
Hit = SPECIFIC TAB 
FNO TAR SFT STMT 

LI IV inD wt 1 Willi 

TO TAB ACROSS 
Tfl n PfiR ii\ 1 TAB? 


CHR$(27)&"D" 

&CHR»((l(=tltl<=80 OR 132) ♦I 28) 
ACHRi(0 4 128) 
CHR$(9 4 128) 


CHRI(27)jCHRI(40)) 'lltltl'. 
CHR$(27);CHR«(41);'IIIIII' 
( ABOVE CODE CLEARS TAB) 
CHR$(9) 


CHRi(27)i'D'4CHR$(llll) ! 
.... &CHR«(II)&CHR)(G) ! 


Tfl QFT IJFPTirAI TAP? 

nil = SPECIFIC TAB 
. END TAB SET STMT ■ 
TO TAB DOUN 


OR»(l<=64 + 128) 
<(CHR$(0 + 128) 
CHRIdl * 128) 


CHRf(ll) 


i CHR$(IIII); ... CHR$(0) 1 
CHR$(11) ! 


CtfCEL PRINT & RESET 


CHR*(24) 


CHR$(24) 




DELETE DATA & RESET 


CHR$(127) 


CHRJ(127) 


CHRI(127) ! 


LINE SPACING 

PRINTER ON IDCn 
(DEVICE SELECT) 

PRINTER OFF [DC3] 
(DEVICE UN-SELECT) 


CHR$(27)iCHRt(0(=ll<2) 

IF « = 0, SPACE=l/8 
■ IF « = 1, SPACE=7/72 

IF II = 2, SPACE=l/6 
I (IF PREVIOUS SETTING) 

CHR$(17) 

CHR$(19) 


CHR»(27);"B' 
. CHRI(27)i'T';M4" 
CHR«(27);'A' 


1 CHRI(27)iCHR$(lt) ! 

IF * = 48. SPACE=l/8 ! 
. IF II = 49, SPACE=7/72 ! 

IF « = 50, SPACE=l/6 I 


BACKSPACE 

PICA ?m (10 CPI) 
ELITE FONT (12 CPI) 
PROPORTIONAL SPACING 
FORtWRD PRIf^T 
REVERSE PRIffr 
Ur^DERLINING = W 
UNDERLINING = OFF 




CHR^(8) 

CHR$(27);"N' 

CHR$(27)i'E' 

CHR$(27)|'P' 

CHR$(27);'r 

CHRI(27);"r" 

CHR$(27);'X" 

CHR$(27)j7' 


! CHRI(8) I 
CHR$(27)|CHR$(66);CHR$(1) i 
1 CHR$(27);CHRI((56)jCHR$(2) 



Note: This table is intended to list 3 variety of useful printer cownands for some of the most popular printers. This table 

not guaranteed to be totally correct nor is this table intended to represent all of the possible printer coranands for the 
printers. In actuality, these printers have graphic control ccmands which are not shown in this table. For exact definitions 
your printer's control codes, please refer to printer nanual. 
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TI 99/4A ERROR CODE REFERENCE CHART 



The fol lowing error code listings were printed i 
o-f HOCUS, Newsletter o-f the Milwaukee Area 99/4 
W i scons i n . 



n the February, 
User Group o-f 



1986 issue 
Wauwatosa , 



EXTENDED BASIC 

18 Nuneric Overflow 
14 Syntax Error 

16 Illegal aHer Sbrtn 

19 Nane too lono 

20 Unrecognized 'Char 
24 i/i Hi snatch 

28 Improperly used nane 
26 Inage error 
39 Memory Full 
48 Stack Overflow 

43 NEXT without FOR 

44 FOR-NEXT nesting 

47 Must be in Sbrtn 

48 Recursive Sbrtn CALL 

49 Hissing SUBEND 

51 RETURN without GOSUB 
54 String Truncated 

56 Speech i too long 

57 Bad Subscript 

68 Line not found 

61 Bad Line H 

62 Line too lono 
67 Can't CffJtiniie 

69 Comand illeoal in prgrn 
78 Only legal in prgrn 

74 Bad Arounent 

78 No proqran present 

79 Bad value 
88 Nil 

81 Incorrect arounent list 

82 Nil 

83 Input Error 

84 Data Error 

97 Protection Violation 

199 File Error 

138 I/O Error 

135 Sbrtn not found 



DISK mmR ERROR COOES 



EDITOR/ASSEMBLER ERROR COOES 
X.B. ERROR EQIWTES 



»: First 

1: OTHER 

2: SEEK/STEP 

3: If^PUT 

4! PRM 

5: NIL 

6: NIL 

7: NIL 

8: NIL 

9; Special Error Code for 
Cbnprehensive Test 



Second 8 
Rec not found 
Cycl ic Redundancy 
Lost Data 
Urite protect 
Write fault 
No Disk Drive 
Invalid input 



I/O ERRORS 



It: 
8: 
1: 
2: 
3: 
4; 
5: 
6: 
7: 



FIRST 

o?m 

CLOSE 

INPUT 

PRINT 

RESTORE 

OLD 

SAVE 

DELETE 



SEC(3^D » 

Device not found 
Urite Protected 
Bad Open Attribute 
Inval id I/O Connand 
Out of Space 
EOF 

Device Error 
File/Data Hisnatch 



>8798 



)8988 
>8A68 
)8B88 
>6C88 
>8D88 

>6Eee 

>8F88 



ERRNO >8288 

ERRSYN >83e8 

ERRIBS >84ee 

ERRT^QS >8588 

ERRNTL >8688 
ERRSM1 
ERROBE 
ERRHUV 
ERRIM 
ERRHEH 
ERRSO 
ERRflUF 
ERRRW 
ERRSNS 

ERRRSC >ie88 

ERRHS >1188 

ERRRU6 >1288 

ERRST >1388 

ERRRBS >]488 

ERRSSL >15e8 

ERRLilF >1688 

ERRBLN >178e 

ERRLTL >1888 

ERRCC >1988 

ERRCIP >1A88 

ERROLP >1B88 

ERRBA >1C86 

ERRNPP >lD8e 

ERRBV >1E88 

ERRIAL >1F88 

ERRINP >2888 

ERRDAT >218e 

ERRFE }22e8 

ERRIO >2488 

ERRSNF >2588 

ERRPV >2789 

ERRIW >28e8 

UmQ >298e 

URNST >2A88 

WRfW >2B88 

URNINP >2C88 

URNIO >2D8B 



2 

3 

4 

5 

6 

7 

8 

9 

18 

11 

12 

13 

14 

15 

16 

17 

18 

19 

28 

21 

22 

23 

24 

25 

26 

27 

28 

29 

38 

31 

32 

33 

34 

36 

37 

39 

48 

41 

42 

43 

44 

45 



Numeric Overflow 
Syntax Error 
111. after Sbprora 
Unmatched Quotes 
Nane too lonq 
i/a Hisnatch" 
Option Base Error 
Improperly used nane 
Inage Error 
Henory Full 
Stack Overflcu 
NEXT without FOR 
FOR-NEXT nesting 
Hust be in Sbprorn 
Recursive Sbprgi^n 
Hissing SUBEND 
RETURN without GOSUB 
String truncated 
Bad subscript 
Speech i too long 
Line not found 
Bad line number 
Line too long 
Can't Continue 
Illegal in progran 
Only'legal in progran 
Bad argument 
No prooran present 
Bad value 

Incorrect argument list 
Input error 
Data error 
File error 
I/O error 

Subprogram not found 
Protection violation 
Unrecoonized character 
Nuneric overflow 
String truncated 
No progran present 
Input error 

I/O error rs232c 
OPEN! 



EXECUTION ERRORS 

8-7 Standard 1/0 

88 Memory Full 

89 Incorrect Statenent 
8A Illegal Tag 

86 ChecKsun Error 

0C Dup. Definition 

BD Unresolved Ref . 

BE Incorrect Statenent 

8F Progran not found 

18 Incorrect Statenent 

11 Bad Nane 

12 Can't CONtinue 

13 Bad Value 

14 Number too big 

15 String-tfunber 

16 Bad Argument 

17 Bad Subscript 

18 Nane Conflict 

19 Can't do that 
lA Bad Line Nunber 
IB FOR NEXT Error 
IC I/O Error 

ID File Error 

IE Input Error 

IF Data Error 

28 Line too long 

21 Henory Full 

22- Unkncwn Error Code 



LOADER ERROR CODES 



8 

8 

9 

18 

11 

12 



Standard I/O 
Henory overflow 
Not used 
Illegal tao 
Checksum error 
Unresolved ref. 



ERRORS 

68 Device cannot be opened 

82 Software Switch Eri'or 

86 Hardware Error 

24 Internal Data too large for buffer 

26 'CLEAR' pressed or Hardware Error 

36 'CLEAR' pressed or Hardware Error 

58 Can't load frwii specified device 

52 Can't use software switch with 'OLD' 

54 Program too larae to load 

56 'CLEAR' pressed or Hardware Error 

68 Can't save to specified device 

62 See 82. Can't use with SAVE 

66 'CLEAR' pressed or Hardware Error 
HISC: 43,73,83,93, Executing Illegal Connand 



INPUT: 

PRINT: 
OLD: 



SAVE: 



BASIC ERROR COOES PERTAINING TO DISK SYSTEM 

FIRST tt SEC WD « 

OPBl Can't find specified Disk Drive 

CLOSE Disk or progran is Urite Protected 

INPUT Bad Open Attribute 

PRM Illegal Operation 

RESTORE Disk'full or too many files opened 

OLD Atteraot to read past EOF 

SAfyiE Device Error 

ggpE File Error 



TI URITER ERROR CODES 
8 - Indicates Disk Controller not on; 
OR: Diskette not Initialized 

6 - No Disk in Drive; OR: Is upside down; 

OR: Drive is not turned on 

7 - No Disk in Drive 

88 - Illegal use of LoadF, PrintFj OR: 
Error in using those corasands 
No file in Diskette with Filename used 
Disk is full 

PrintF Contnand in prooress was 
interrupted; OR: Disk'Door was opened 
while Red Light was on. 
Invalid Filename <I.E. Nane too long 
or using invalid characters) 
15 - Invalid Disk Drive Number, or Device 



82 
84 
86 



87 ' 



KEY CODE / TOKENIZED BASIC CODE CHART 

Compiled by Don Don Ian 



ASCII/Hex Key CtttWJD ACSCI I/Hex Key 



Marks EOL 
AID 1 
BREAK/IMTRUPT 2 
DELETE CWR. 3 
INSERT 4 
'QUIT/RESET 5 
REDO/REPEAT 6 
ERASE A LINE 7 
i Cursor Left 8 
Cursor Right 9 
Cursor Doun 10 
Cursor Up 11 
PROC'D 12 
Carriage Rtrn 13 
BEGIN 14 
BACK 15 
«DLEscape U 
«DC1 <X-I3N) 17 
*DC2 18 
»0C3 (X-OFF) 19 
*DC4 20 
«WlKncu1edge 21 
*SYNc idle 22 
«ETBlock 23 
tmci] 24 
<End of Hediun 25 
*SUBstitute 26 
»ESCape 27 
»File Separatr 28 
«Grp Separator 29 
Cursor Char. 30 
Edge Char. 31 
Blank/Space 32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 

Null 128 

ELSE 129 

:: 130 

! (REN) 131 

IF 132 

GO 133 

GOTO 134 

GOSUB 135 

RETURN 136 



>00 64 >40 3 

>01 FCTN 7 Upper Case.. 65 >41 A 

>02 FCTN 4 66 >42 B 

>03 FCTN 1 67 >43 C 

)04 FCTN 2 68 >44 D 

>05 FCTN = 69 >45 E 

>06 FCTN 8 70 >46 F 

>07 FCTN 3 71 >47 G 

>08 FCTN S 72 >48 H 

>09 FCTN D 73 }49 I 

>0A FCTN X 74 }4A J 

>0B FCTN E 75 >4B K 

>0C FCTN 6 76 >4C L 

>0D ENTER 77 >4D M 

>0E FCTN 5 78 >4E N 

}0F FCTN 9 79 >4F 

>10 CTRL P 80 >50 P 

>11 CTRL Q 81 >51 Q 

>12 CTRL R 82 >52 R 

>13 CTRL S 83 >53 S 

>14 CTRL T 84 >54 T 

}15 CTRL U 85 >55 U 

}16 CTRL V 86 >56 V 

>17 CTRL U 87 >57 U 

>18 CTRL X 88 >58 X 

>19 CTRL Y 89 >59 Y 

>1A CTRL Z 90 >5A Z 

>1B CTRL . 91 >5B [ 

>1C CTRL 5 92 >5C \ 

>1D CTRL = 93 >5D 1 

)1E 94 >5E * 

>1F Underline 95 >5F 

}20 Space Grave Accent 96 >60 ^ 

>21 ! Lower Case.. 97 >61 : a 

>22 ■ 98 >62 b 

>23 It 99 >63 c 

>24 * 100 >64 d 

>25 y. 101 >65 e 

>26 tt 102 >66 i 

>27 ' 103 >67 g 

>28 ( 104 >68 h 

>29 ) 105 >69 i 

>2A » 106 >6A j 

>2B + 107 >6B k 

>2C , 108 >6C 1 

>2D - 109 >6D n 

>2E . 110 >6E n 

>2F / 111 >6F 

>30 112 >70 p 

>31 _^ 1 113 >71 q 

>32 2 114 >72 r 

>33 3 115 >73 5 

>34 4 116 >74 t 

>35 5 117 >75 u 

>36 6 118 >76 V 

>37 7. 119 >77 M 

>38 8 120 >78 X 

>39 9 121 )79 y 

>3A ; 122 >7A 2 

>3B : 123 )7B { 

>3C < 124 >7C ! 

>3D = 125 >70 } 

>3E > 126 >7E - 

>3F ? Delete Char. 127 >7F 

>80 CTRL , -> Grtr Than. 192 >C0 FCTN J 

)81 CTRL A 193 >C1 FCTN K 

>82 CTRL B 194 >C2 FCTN L 

>83 CTRL C •* 195 >C3 FCTN H 

>84 CTRL D -/ 196 >C4 FCTN N 

>85 CTRL E -* 197 >C5 FCTN Q 

>86 CTRL F " undefined 198 >C6 FCTN Y 

)87 CTRL G Flag Quoted! 199 >C7 

>88 CTRL H FI Onquoted$ 200 >C8 



COrm^D ASCII/Hex Key 

DEF 137 >89 CTRL I 

DIH 138 >8A CTRL J 

END 139 >8B CTRL K 

FOR 140 >8C CTRL L 

LET 141 >8D CTRL H 

BREAK 142 >8E CTRL N 

UNBREAK 143 >8F CTRL 

TRACE 144 >90 CTRL P 

UMTRACE 145 >91 CTRL Q 

INPUT 146 >92 CTRL R 

DATA.. 147 >93 CTRL S 

RESTORE 148 >94 CTRL T 

RWDOHIZE... 149 >95 CTRL U 

NEXT 150 >96 CTRL V 

READ 151 >97 CTRL U 

STOP 152 >98 CTRL X 

DELETE 153 >99 CTRL Y 

REM 154 >9A CTRL Z 

ON 155 >9B CTRL . 

PRINT 156 >9C CTRL : 

CALL 157 >9D CTRL = 

OPTION 158 >9E CTRL 8 

OPEN 159 >9F CTRL 9 

CLOSE 160 )A0 _ 

SUB 161 >A1 

DISPLAY 162 )A2 

•/.m^E 163 >A3 

5MCCEPT 164 >A4 

TERROR 165 >A5 

•/WARNING..... 166 >A6 

•/.SUBEXIT 167 >A7 

■/.SUBEND 168 >A8 

ym 169 )A9 

XLINPUT 170 >AA 

171 )AB 

172 >AC 

173 >AD 

174 >AE 

175 >AF 

"^HEN 176 }B0 CTRL 

-TO 177 >B1 CTRL 1 

-STEP 178 >B2 CTRL 2 

-Coma <,) 179 >B3 CTRL 3 

-Seiii-cln(;) 180 >B4 CTRL 4 

-Colon (:) 181 >B5 CTRL 5 

-Rt. Paren. ) 182 >B6 CTRL 6 

-Lt. Paren. ( 183 )B7 CTRL 7 

"Anpersand d 184 >B8 FCTN , 

185 )B9 

-/.OR 186 >BA FCTO / 

"%«D 187 >BB CTRL / 

-/XOR 188 >BC FCTN 

-yiNOT 189 )BD FCTN : 

= 190 >BE FCTN B 

< Less Than. 191 >BF FCTN H 



COttVWD 



ASCT I/Hex Key 



Flag Line No 201 >C9 . 

EOF 202 >CA . 

ABS 203 >CB . 

ATN 204 >CC . 

COS 205 >CD . 

EXP 206 >CE . 

INT 207 >CF . 

LOG 208 >D0 . 

SGN 209 >01 . 

SIN 210 >D2 . 

SQR 211 >D3 . 

T(W... ...... 212 >D4. 

LEN 213 >D5 . 

CHR$ 214 >D6 . 

RND 215 >D7 , 

SEGf ..216 >D8. 

POS 217 )D9 . 

VAL 218 >DA , 

STRI 219 >DB . 

ASC 220 >DC . 

y.Pl 221 >D0 . 

REC 222 >DE . 

ym 223 >0F , 

:<MIN 224 >E0 , 

y.RPT$ 225 >E1 

226 >E2 . 

227 )E3 

228 >E4 

229 >E5 

230 >E6 

231 >E7 

/^NUMERIC 232 )E8 

XDIGIT 233 >E9 

XUALPm 234 >EA 

XSIZE 235 >EB 

ML 236 )EC 

•/USING 237 >ED 

'/BEEP 238 )EE 

XERASE 239 )EF 

XAT 240 >F0 

BASE 241 >F1 

? TEMPORARY... 242 >F2 

VARIBLE 243 >F3 

REWTIVE.... 244 >F4 

MEi^L.... 245 >F5 

SEQUETfllAL.. 246 >F6 

OUTPUT 247 >F7 

UPDATE 248 >F8 

APPEND 249 >F9 

FIXED 250 >FA 

? PERMANENT... 251 >FB 

TAB 252 >FC 

» (FILE NIH) 253 >FD 

•/VALIDATE 254 >FE 

2 mRK EOF 255 )FF 



» Used in Pascal. Useful information found in the Users 
Reference Guide page 1II-2. 

y. Used in Extended BASIC. 

? Little used parameters related to disk files. See the TI 
Users Reference Guide, page 11-121. 

" Conpiled fron KicroConpendiun. Other information compiled 
from past issues of 99'er Magazine. 



-7 O 



HHH 



m»Mii»Mi i 



COLOR COOES 



HHHH 





a 

9 



» 

c • 

«• L 
1. ft 

a** 
*i 
• 
r — 

z 

(A I* 
KZ 

• n 

0- 

aw 

30. 

o< 

t. 
t-- 

0,£ 
D** 
Q. 

e 
ft — 

£ 

ft 

ft 
» 
- ft 
ft c 

L ft 
U !■ 

ft 

ftM. 

> ft 

-q: 

X 

** c 
• 

c 
ft ft 

3Z 



COLOR 


VALUE 


TRANSPARENT 


1 


BLACK 


2 


HES. OREEN 


3 


LT. GREEN 


4 


DARK »LUE 


8- 


LT. JLUE 


« 


SK. RED 


7 


CYAN 


ft 


HES. RES 


ft 


LT. RES 


X9 


OK. YELLOU 


11 


LT. YELLOW 


12 


SK. OREEN 


13 


MAGENTA 


14 


CRAY 


IS 


WHITE 


1« 



* 

PATTERN ZSENTXrXER « 

• CONVERSION TABLE « 

« — « 

« ft • 

• 1 1 « 
« 1 2 * 
« 11 3 * 
« 1 4 • 
« 10 1 8 • 

• 110 * • 

• 111 7 « 

• 1 ft • 
« 10 1 ft « 

• 10 10 A « 

• 10 11 B • 
« 110 C • 
« 110 1 B « 

• 1110 E • 

• 1111 F • 

• • 
« « 
« • 

• « 
« « 
« « 



ERROR COSES 



FIRST 

m 

1 

2 

s 

4 

8 
* 

7 
9 

SECONS 

1 



COMHANS OR STATEMENT 

OPEN 

CLOSE 

INPUT 

PRINT 

RESTORE 

OLS 

SAVE 

SELETE 

EOF 



TYPE OF ERROR 
DRIVE NOT FOUNO 
DEVICE OP FILE MZTE 
PROTECTES 

2 BAD OPEN ATTRIBUTE 

3 ILLEGAL OPERATION 

4 OUT OF SPACE 

8 ATTEMPT TO READ PAST 

ENS OF FILE 
ft DEVICE ERROR or 

HARSWARE ERROR 
7 FILE ERROR - Fll* er 
AiKk ao»» net •xis-t 



ASCII COSES 



COSE 




COSE 




COSE 




COSE 




COSE 




COSE 




COSE 


COSE 




30 




48 





65 


A 


82 


R 


99 


C 


116 


t 


133 


60 150 


NEXT 


31 




49 


1 


66 


B 


S3 


S 


100 




117 


u 


134 


GOTO 151 


«EAS 


32 


t 


50 


2 


67 


C 


84 


T 


101 


• 


lie 


w 


135 


GOSUB 152 


STOF 


33 


81 


3 


68 


B 


85 


U 


102 




119 


M 


134 


RETURN 151 


SELETE 


34 


• 


S2 


4 


69 


E 


■ 6 


V 


103 




120 


■ 


137 


SEP 154 


REM 


39 


ft 


83 


9 


70 


F 


B7 


w 


104 


I 


121 


y 


138 


BIN' 155 


ON 


3A 


■ 


S4 


6 


71 





88 


X 


105 


1 


122 


X 


139 


ENS .156 


PRINT 


37 




55 


7 


72 


H 


89 


Y 


106 




123 


{ 


140 


FOR 157 


CALL 


38 


i. 


56 


8 


73 


I 


90 


z 


107 


I 


124 


1 


141 


LET 158 


OPTION 


39 


• 


5-» 


9 


74 


J 


91 


( 


106 


1 


125 


} 


142 


BREAK 159 


OPEN 


40 


( 


56 


• 


78 


K 


92 


\ 


109 


■ 


126 




143 


UNBREAK 160 


CLOSE 


41 


) 


59 


i 


76 


L 


93 


1 


110 


n 


127 


BEL 


144 


TRACE 161 


SUS 


42 


« 


60 


< 


77 


N 


94 




111 


e 


12S 




145 


UNTRACE 162 


OISPLA 


43 




61 


m 


78 


N 


95 




112 


P 


129 


ELSE 


146 


INPUT 163 


IHAGE 


44 


• 


62 


> 


79 





96 




113 


q 


130 




147 


SATA 164 


ACCEPT 


45 




63 


7 


80 


P 


97 


• 


114 


r 


131 


• 


148 


RESTORE 165 


ERROR 


46 




64 


• 


• 1 


8 


98 


b 


lis 


s 


132 


IF 


149 


RANBOniZE 




47 


/ 






*H 


HH 


^«HHHHH 












CALL KEV VALUE OF 


KEYSTROKES 


* JOYSTICK RETURN VALUES 


CHARACTER SETS 


•♦ 




COSE 




KEYSTROKE 










SET . 


ASCII COSES 


« 




1 


FCTN 


7 








* 
• 


UP 




- 


30 


-31 




« 




2 


FCTN 


4 








« 


(0,4) 




1 


32 


-39 




« 




3 


FCTN 


1 








* 


1 




2 


40 


-47 




« 




4 


FCTN 


2 








* 


(-4,4) 1 (4 




3 


46 


-55 




« 




8 


FCTN 


m 








* 


\ 1 / 




4 


86 


-63 




• 




6 


FCTN 


S 








« 


\ J / 




5 


64 


-71 




« 




7 


FCTN 


3 








« 


\ i / 




6 


72 


-79 




« 




6 


FCTN 


S 












(4,0) 


7 


60 






♦ 




9 


FCTN 


S 










LEFT / i ■> 




e 


88 


-95 




* 




10 


FCTN 


X 








* 


/ : V 




ft 


96 


-103 




« 




11 


FCTN 


E 








* 


/ 1 \ 




10 


104 


-111 




« 




12 


FCTN 


6 








« 


(-4,-4) (4 


,-4) 


11 


112 


-119 




« 




13 


ENTER 








• 






12 


120 


-127 




« 




14 


FCTN 


5 








« 


<0,'-4) 




13 


128 


-131 




* 




18 


FCTN 


9 








« 


SOWN 




14 
IS 


136 
144 


-143 ♦ 
-151\8ASIC « 
















« 




16 


152 


-159/ONLY ♦ 






« 






EXTENBEB 


BASIC 


STATEMENTS 





CONTROL COOES 



ASC 


PRESS 


COMMENTS 


1 


CTRL 


A 


START OF HEAOING 


2 


CTRL 


B 


START OF TEXT 


3 


C-RL 


C 


ENS OF TEXT 


4 


CTRL 





ENS OF TRANS. 


5 


CTRL 


E 


INQUIRY 


6 


CTRL 


F 


ACKNOWLEBOE 


7 


CTRL 





BELL 


e 


CTRL 


H 


BACKSPACE 


9 


CTRL 


I 


HOF.IZ. TAB 


10 


BHFT/ENTR 


LINE FEES 


11 


CTRL 


K 


VERTICAL TAB 


12 


CTRL 


L 


FORM FEED 


13 


ENTER 


CARRIAGE RETURN 


14 


CTRL 


N 


SHIFT OUT 


15 


CTRL 





SHIFT IN 


16 


CTRL 


P 


BATA LINK ESCAPE 


17 


CTRL 


Q 


BEVICE CONTROL 1 


18 


CTRL 


R 


BEVICE CONTROL 2 


19 


CTRL 


S 


BEVICE CONTROL 3 


20 


CTRL 


T 


BEVICE CONTROL 4 


21 


CTRL 


U 


NEG. ACKNOWLEOGE 


22 


CTRL 


V 


SYNCHRONOUS ISLE 


23 


CTRL 


w 


ENS OF TRANSMIS. 


24 


CTRL 


X 


CANCEL 


25 


CTRL 


Y 


ENS OF MEBIUM 


26 


CTRL 


z 


SUBSTITUTE 


27 


CTRL 




ESCAPE 


26 


CTRL 


M 


FILE SEPARATOR 


29 


CTRL 


J 


GROUP SEPARATOR 


30 


CTRL 


8 


RECORB SEPARATOR 


31 


CTRL 


9 


UNIT SEPARATOR 


127 


SHIFT 


V 


DELETE CHARA:TER 



ACCEPT 

CHAR 

CHARPAT 

CHARSET 

CLEAR 

CLOSE 

COINC 

COLOR 

BATA 

BEF 

BELSPRITE 
SIM 

SISFLAY 



SISTANCE KEY 



ENS 
ERR 
FOR 
GCHAR 
GOSUE 
GOTO 
HCHAR 
IF THEN 
IMAGE 
INIT 
INPUT 
JOYST 



LET 
LINK 
LINPUT 
LOAD 
LOCATE 
MAGNIFY 
MOTION 
NEXT 



ON UARNIN6 SCREEN 
OPEN SOUND 
OPTION BASE SPSET 



PATTERN 
PEEK 

POSITION 
PRINT 
RANDOMIZE 
READ 



SPRITE 

STOF 

SUS 



ON BREAK REM 
ON ERROR RESTORE 
ON GOSUS RETURN 
ON GOTO SAY 

CALL LOADS 



• AOSRESS 
«... 

« -32748 
-31786 
-31804 



PARAMETERS BESCRIPTION 



-31806 



-31860 

-31860 

-3ie7E 
-31 BSc 
-315-31 
-31962 
-31962 
-31952 



POKE 0-255 
POKE 192 
PEEK X,Y 
POKE X.Y 
POKE 16 
POKE 32 
POKE 64 
POKE 4 



RATE O* FLASH of CURSOR 
OISABLE SPRITE Action 
Returns to Tltl* Scp»»n 



BISABLE QUIT KEYIFctn «) 
SISABuES SOUND 
SISABLES AUTOSPRITE MOT3DM 
Go»> to Consol* BASIC 
after 'NEW la typvd 
POKE Runa BSKl.LOAD 

POKE 0-26 High»Bt • SPRITE Jn aotion 
POKE 63,255 BiaABl»B Siaka.NEW 4r».i>*ir> 
POKE 0/12S Unprot»cta/Prot»cta pru«rsi 
POKE -2 Raturna to TITLE SCREEN 

P(<KE 55 Runa SSKl.LOAB 

PEtTK A,£,C,S Racovara pro9rG!ii Mith LOA^ 
PEEK A 96'&paacn Syn. 0bNo Siiaac 

i«i i»« mn i ««i i »»i «« ««g» i »ai»im i mi <t< i » ^ 



UTILIZING MINI -MEMORY CAPABILITIES 



Part 1 

Two new low-cost cassette-based programs using the Mini-Memory cartridge will be available 
October. . . 

TI-Min iwr i ter , a new low-cost word processing system -for the TI-99/4A, o-f-fers users -full 
^screen text editing, a 24 X 48 character window on an 89 scrolling character display, upper and 
'lower case characters, movable copy, and add and delete -functions -for characters or lines. Up 
to 9500 characters may be stored per -file. 

The Tl Mini-Memory cartridge and a TI Program Recorder are the only requirements necessary 
to bring word processing capabilities like these to your Home Computer. An RS232 Inter-face and 
printer are required to obtain printed copies o-f documents. 

Other features o-f the new TI-Miniwr i ter are a search -function; up, down, le + t, or right 
scrolling; text bu-f-fer purging, and cancel commands. TI-Mi n iwr i ter will be available at a 
suggested retail price o-f $19,95. The TI -M i n i wr i ter program cassette was developed -for Texas 
Instruments by Model Masters, Inc. 

Another new TI-99/4A cassette-based program which utilizes the TI Mini-Memory cartridge is 
Entrapment. Entrapment is a game o-f sl< i 1 1 and speed where players are in command o-f a spaceship 
that patrols the Earth's atmosphere. Players must de-fend the Earth against an invading legion 
o-f hostile larvae entering the atmosphere. 

Entrapment requires a TI Mini-Memory cartridge and TI Program Recorder. Joysticks are 
recommended. This program will be available at a suggested retail price o-f *19.95. Entrapment 
is manu-f actured by TI under license -from American Software Design and Distribution Company. 

UTILIZING MINI-HEMORY CAPABILITIES 

Part 2 

For the computer enthusiast looking -for a versatile and economical way to customize his or 
her basic Home Computer system, the TI Mini-Memory cartridge of-fers unique expansion 
capabi 1 i t i es. 

This expansion cartridge increases the memory capacity o-f your Home Computer by adding a 
total of 14K bytes of memory to your system. This includes 4K RAM (Random Access Memory). 
6K GROM (Graphics Read Only Memory), and 4K ROM (Read Only Memory.) 

The Mini -Memory's built in battery enables a user to store a 4K BASIC program or data file 
in the cartridge even after the cartridge has been removed from the console. (4K memory will 
accommodate approximately 250 lines of BASIC). 

Uith the use of a cassette-based Line-By-Line Symbolic Assembler, a user can develop 
Assembly Language programs to add new instructions to the computer's BASIC Language which are 
not already available. (The Line-By-Line Assembler is packaged with the Mini-Memory cartridge) 
The Assembler cassette loads directly into the Mini-Memory cartridge from a cassette recorder! 
This cassette enables users to write assembly language programs which can then be saved on 
additional cassette tapes. 

Users can link BASIC programs to Assembly Language subprograms by utilizing the Tl BASIC 
subprograms and utility routines available in the Mini -Memory cartridge. This allows a user to 
address the internal components of the Home Computer directly. 

With access to the machine resources of the computer, a user can build a customized system 
using a minimum computer configuration of console, Mini-Memory, and monitor. With a TI Program 
Recorder, procedures can be saved for future use. 

TI Mini-Memory is available at a suggested retail price of *99.95. The Tl Program Recor 
is recommended for saving programs developed with the Mini-Memory cartridge. Mini-Memory also 
may be used with all other Home Computer peripherals. 

Conclusion of a two part article on the TI Mini-Memory. Taken in part from the September. 
1983 TI Newsletter. 
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More On TI Memory 



From COMPUTE! , August 1983, page 14; By Howard Patlik 

Many owners o-f the TI-99-4/A would be interested in determining the exact amount of 

available memory <in bytes). This two-line program is very simple and can save a lot o-f hair 
pulling when you write programs which -fill the memory. Here is the Program: 

Step I 

Enter the -fol lowing: 

1 A=A+8 

2 60SUB 1 

Do not use a variable that has already appeared in the program. For example, i-f you have used 
the variable "A" within the program, choose another. Second, the program must work correctly 
be-fore using this mini program. 

Step 2 

Once this is entered into the memory, enter the RUN command. The process will take between 15 
and 30 seconds to execute, depending upon the length o-f your program. After execution, MEMORY 
FULL IN 1 will appear. Now enter PRINT A (no line number) and a value will appear on the 
screen. This value is the number o-f bytes remaining in the computer's memory. 

To determine the total amount o-f -free memory available. Clear the memory (store your 
program -first) and repeat Steps 1 and 2. The value displayed will be 1453(5. There are 1453(5 
free bytes available (the mini-program itsel-f uses 40 bytes, so add 40 to the 1453(5) . The 
computer is advertised as having 16K bytes. 1424 are used -for screen display, etc. So when a 
program is stored in the memory and you want to determine how many bytes the program used, enter 
the -fol lowing: ^ .. 

Print 1457(5-A 

DON'T REPRESS THE UR8E TO SUPRESS A SURGE! 

] have heard -from many o-f you who have power problems that are causing you great concern 
when you are using your computer. Perhaps you could avoid most o-f these problems by taking a 
•few easy and inexpensive sa-fety precautions. For instance, the December, 1983 issue o-f BYTE 
magazine -features an article dealing with these problems. Read it! This guy was operating his 
computer during an electrical storm, an absolute no no! 

You should be using a line voltage supressor with a maximum voltage tolerance o-f about 130 
volts A.C. Some o-f these supressors don't knock the voltage down until it hits 500 volts! 
Needless to say, when it gets that high there isn't any point in worring about your equipment! 

Try to keep your equipment away -frc^m -flourescent lights, sas they can cause all sorts o-f 
quirks in your equipment. Especially a -faulty starter in the older models. You can also have 
di -f -f i cul t i es -from a po<^er drain or votage spike. These can be caused by an electrical appliance 
engaged with a high amperage drain on the same circuit as your computer; such as a dish washer, 
toaster, iron or re-f r i gerator . This can cause a momentary change in power and it can a-f-fect, 
and sometimes, damage, your equipment. Avoid static electricity, as it is an instant killer -for 
disks, tapes, and all electronic hardi/iare! Use anti static spray on your carpet i-f it is. a 
'■^oblem. With a little common sense you can avoid the problems, so go visit Radio Shack an\^ 
end a -few dollars -for some peace o-f mind and computer security! 

Editor's Note: This article was taken, in -full, from the 99/4 Users of America Newsletter in 
our ongoing Newsletter Exchange Program. 
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LIBIMRY BITS 



sBACKGAMMW 
*by Denn 

BackgantfDon is a game for two players, or 
for one player against the computer. For the 
two-player version, enter the initials of each 
player in response to the prompt. To play 
against the computer, enter 99 as the second 
player's initials. 

The game-board in the computer game can be 
confusing if you are not already familiar with 
the game. The points are not displayed on the 
board. They are represented by numbers from 
01 to 24. It would be beneficial for you to 
obtain a Backgammon board and become familiar 
with it before trying to play the computer 
versi on . 

We will begin with a few definitions. 

POINTS: These are the spaces on the 
playing board. On a regular board, they are 
shaped like narrow triangles. Players land on 
points as they move around the board. 

STO^^IES: The playing pieces. 

BAR: The place where pieces are held 
after they are hit. 

HIT; Landing on a space which is occupied 
by a single opponent's stone. This sends your 
opponent's stone to the bar. Your opponent 
must re-enter that stone at his/her first 
point. other words, that stone must start 
over again and you have lost the progress that 
stone achieved during the game. 

When a player has a piece on the bar, it 
must be re-entered before that player may move 
any other stone- If the player cannot 
re-enter the stone on his/her next turn, that 
turn i s forf e i ted. 

CLOSED POINT: This occurs when a player 
has two or more stones on the same point. 
This is also cal led MAKING A POINT. When a 
player makes a point, an opponent may not land 
on that point, and the player's stones are 
safe. They cannot be sent to the bar. One 
strategy is to keep as many of your stones as 
possible on safe points. Thus, they cannot be 
hit. 

BEAR OFF: This means to remove your 
stones from the board. The first player to 
bear off all his/her stones wins the game. 

The object of the game is to move all your 
stones (pieces) into your inner table, 



INSTRUCTIONS* 
is Sherfy* 

and then off the board. White moves in a 
horseshoe manner from space 24 to 01. 
Black moves from 01 to 24. As the board 
is displayed, points 01 to 06 make up 
white's inner table, and points 07 to 12 
make up white's outer table. Similarly, 
points 24 to 19 make up black's inner 
table, and points 18 to 13 make up 
black's outer table. 

THE PLAY 

The computer chooses one player to go 
first and rolls the dice. The first 
person whose initials are entered is 
white and moves first. 

Each die is played separately. H 
you roll a 2-5, you roust move one stone 2 
spaces, and another 5 spaces, or you may 
move one stone 2 spaces, and the same 
stone 5 more spaces. If you roll doubles 
you move the value of each die twice. 
For example if you roll double 5, you 
move 5, four times. 

If you make an error when entering a 
move, press enter before completing the 
move. This will generate an error 
message and allow you to enter your move 
again. If you have keyed in your 
complete move, and want to change your 
mind, do not press enter. Instead, make 
an intentional error, such as entering a 
letter. When you press enter this will 
create an error and you can enter a new 
move. You must always enter a move with 
two digits, a move from space 9 to space 
11 must be entered as 09 to 11. 

If a player has two or more stones on 
one point, it is called a "closed" 
""point"". A player cannot land on a 
closed point occupied by the other 
player. He may, however, jump over a 
closed point . 

If there is a single stone on a 
point, it Is called a ""blot"". If a 
player lands on an opponent's blot, the 
opposing stone must go to the ""bar"'. 
This means that the stone must start at 
the beginning and be re-entered on the 
board. 

Black must re-enter a stone to a 
point between 01 and 06 which is not 
blocked by white, <a closed point). 
White must re-enter to a point between 24 
and 19. Again, the point cannot be 
closed by black. If either player has a 



LIBRARY BITS, cont'd. 

stone on the bar, and cannot re-enter the 
stone because the points are closed by the 
opponent, that player -for-feits his move. H 
either player has a stone on the bar, and 
cannot re-enter the stone because the points 
are closed by the opponent, that player 
■f or-f e i ts his move . 

A player must use as much oi the dice roll 
as possible even i-f it means leaving a blot on 
a point. That is the luck o-f the game. This 
means i-f you roll a 2 and a 4, you must move a 

2 and a 4. If you are unable to use the -full 
roll, you must use either the 2 or the 4. 
(You would not split up the 4 and move a stone 

3 points). This could only happen when your 
opponent has every possible point blocked to 
which you could move. The computer will keep 
track o-f this automatically. I-f you cannot 
move, or i-f you cannot re-enter a stone {rcKii 
the bar, the computer will pass the turn to 
the other player. 

The strategy o-f the game is to hit as many 
oi your opponent's blots as possible while 
keeping your stones paired on points, and 
sa-fe. 

This game is a game o-f chance in more ways 
than one One gamble is to leave a lot on your 
back two points (points 01 02 or 24 23), 
tempting your opponent to '"hit"" the blot. 
I-f your stone is sent to the bar, you have not 
lost much, and your opponent may have le-ft a 
blot -for you to hit in return. 

The computer game does not utilize the 
doub.ling cube. This is a- way to double and 
re-double the stakes of the game. 

The player who removes all his stones from 
the board first, wins the game. 

If a player removes all his stones iron 
the board before his opponent removes his 
first stone, it is called a Gammon, and is the 
equivalent to winning two games. 

If, in winning, a player removes all his 
stones from the board while his opponent still 
has one or more stones in the winner's inner 
table it is a Backammon and is equivalent to 
three games. 

THE BACKGAltlON BOOK by Jacoby and Crawford 
is a reasonably priced book in the softbound 
version. It is a good reference. The game is 
easy to learn and can be played in a short 
time. It represents a good mix of skill and 
luck. There are strategies to the game which 
are too extensive for this presentation. Play 
the game and buy the book if you are 
interested. I think that you will enjoy it. 



TRIALS AND TRIBULATIONS 

OF A FLOPPY NATURE 

(or how to make a backup) 
(copy of a cleaning disk) 

by Jerry Tr i nkl 

The other day I had the unfortunate 
experience of losing a disk full of programs. 
It didn't happen all at once, 1 occas ? ona|.l > 
cou1dn-'t load a program here and there anc 
sometimes got the error message, "04", the 
error -tor no disk drive. In the end, all 1 
got was a no disk drive error. Looking at tht 
disk I fourid two circular gouges, one on the 
inside track closest to the hub and one 
towards the outer most track. 1 tried to movt 
the disk inside it's jacket and ah ha! Th€ 
problem was that of a cheap disk that jammec 
up. It could not even be turned by hand. 

Well I had some very good programs or 
that disk and wasn-'t about to throw it ou 
just yet. My first thought was to try Dist 
Fixer, after all that's what it was designee 
for, right? But if the disk would not turn 
then Fix could not even read a sector. Ok s( 
now what? 

1 carefully cut out the bad disk fror 
it's jacket and inserted it into an en| 
'>^erbatum cleaning jacket. And Uoila! i 
worked! I quickly backed up my makeshif 
cleaning disk on an good disk and was tempter 
to turn el-cheapo into a frisbee. But 
decided to save it anyway as a backup and 
reminder of a great idea that actually worked 

So dig out that old frisbee and give it 
try. 'Your trials will not turn int' 
tribulations and you will occasionally find 
use for your old useless cleaning jackets. 

This article was taken from HOCUS 
Newsletter of the Milwaukee Area 99/4 User- 
Group, l/Jauwatosa. Wisconsin. 




YOUR QUESTIONS ANSWERED ABOUT "AXIOM" DIRECT-CO^^NECT PRINTERS ! ! 



by Marc Blaydoe 

At the last HUGgers meet i ng much interest was expressed about the Axiom D i rec t-Connec x 
Pi-.fiters. Mr. James Franks, Applications Engineer -for Axicm Corporation has provided some 
in-formation in addition to the brochures. 

These printers connect to the Tl 99/4A without the need -for a P-Box or RS-232 inter-face. 
The biggest question at the last meeting was "where does the printer plug into the console?" 
According to Mr. Franks, the printer plugs into the same outlet that the P-Box and Speech 
Synthesizer use. However! Mr. Franks happily points out that we can still keep our P-Boxes 
pl-ugged in! 

The printer plug is a "t" connector with an extra port at a right angle to the connector to 
plug in other peripherals. The secret to the direct connect is a Centronics parallel to 
parallel interface. While the inter-face is not an RS-232 it has been designed to answer to the 
RS-232 port command in your so-ftware. By the way, the "bottom line" printer, the GP-lOO, has 
true descenders! <i .e., the loiv;er case g's and y's look like g's and y's). 
List prices for the Axiom printers are; 
6P-100 %309 
GP-550 $409 

6P-700 *60? <A full color printer!) 
Mr. Franks has promised to send us more info soon. If it gets here in time, we will give 
you an update at the next HUGgers meeting. 



Nouj xou cam buy -a. cd i s-k dnive -fon youn 
XI — 9'S»'/4A -fon ^-q-OO l_ESS than you thought 



you could! 




Putting a disk drive on your 11-99/AA can be an expensive propos i t i on . . .unl ess you add a 
Percom Data TX-99 for a mere $499. A similar Tl-supplied disk configuration requires that you 
purchase a Peripheral Expansion Box, a Controller Card and, of course, the Drive itself. The 
<ab on that little package is a hefty $899! 
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MICROS in ACTION 

by Wm. H. Cagl e 'v'.P. i 

I Just cane back ^rcn a service school on an X-ray 
systes that ay cmpany sells. This machine is used in j 
hospitals to visualize body organs and bone structure. Uhat ' 
nakes this machine of interest to us, is the fact that this ' 
system is under control of a microprocessor. The CPU in use ; 
in this system is smaller that the one in our computer, but ' 
it is none the less a CPU with memory and data-busses and all ^ 
the rest of the hardware that is currently in use in any 
other system. 

On power-up the CPU goes to a RON (read-only-memory) and 
gets a program that starts a test to see that every assembly \ 
that uill be used, is in good working condition. This is : 
accomplished by writing a preselected code to each sub- 
assembly and reading back the 'echo' response frcn these i 
devices. If the response Is there, and if it matches uhat i 
the program said that it should, then the CPU goes to the I 
next test. Uhen all of the tests have been passed, the CPU j 
turns over the system to the operator for setting the I 
conditions for the first X-ray procedure. j 

Uhen the procedure is selected from the key-board, the 
CPU reads the keys pressed and stores the operator input and I 
it then checks to see that the input is indeed 
a legal input. On some systems, the operator can destroy a : 
five thousand dollar X-ray tube by using to much power before i 
the tube is warmed up and they can also ruin a tube by i 
getting it to hot. This system protects the patient and the 
equipment from such operator error. 

Uhen the actual x-ray is in progress, the CPU watches | 
the voltage impressed on the tube, the current through it, | 
the amount of time it has been on, the current through the : 
filament and a host of other things. In fact the only thing | 
the operator has to do, is set the parameters, push and hold | 
the go button and the CPU watches everj^thing else. Uith this [ 
level of control over the operating system, the consistency 
of the pictures are very good. ; 

For the technical people in our club, imagine a CPU 
system controling a machine that produces 100,000 volts and i 
delivers 1000 mil lamps. Also imagine how much damage occurs I 
when the tube arcs over inside. Some of the servo systems 
have multiple loops nested inside each other. The amount of 
care that the designers took to protect the patient is 
awesome. Every thing is set up so that it is 'fail-safe'. 
This means that any time the CPU can't move some value, it 
will shut down the entire thing and not allow another shot to 
be processed until the fault is rectified. It also has a 
trouble code reporting system. There are about sixteen pages 
of trouble codes in the back of operators manual. This is a 
great trouble shooting help, when the Tech. calls you and 
says that ' I have an FEC error.' 

Uhile this system is very expensive, we are selling a 
lot to hospitals that do the type of procedures where this 
level of operation is needed. In some of the X-ray 
procedures used today, it is necessary that each shot in a 
high-speed run is very consistant on a picture by picture 
basis and this equipment will do this type of procedure very 
nicely. 



C(^SOLE COmENTS 

by Bill Jones ' 

I purchased a copy of THINKING FORTH ' 
by Brodie and read it cover to cover last ; 
night. The book is definitely advanced, .; 
but, as the author says, is not just -for ! 
FORTH programmers. Brodie de-fines the | 
discipline of programming, as - 
professionals do it. Most of us amateurs 
learned to program thru the school of 
hard knocks, and that school teaches some 
bad habits. I wish Brodie had written 
this book when I was Just starting out. 

THINKING FORTH clearly explains the ; 

best ways to bring a project from start i 

to finish, producing code that is more ! 

than f unct i onal -i t is elegant. 90 j 

percent of this books contents applies to i 

any language, not just FORTH, because it i 

describes a programmers philosophy that | 
caused FORTH to be created. 

If you do any serious programming, 
READ THIS BOOK! 

I 

SPEAK UP! ■ \ 

Editors Note: The following article 
was copied from the October, 1984 issue j 

of MicroCompendium. ! 

i 

Sometimes solutions to problems can | 
be so obvious that one never sees them. | 
Anyone who has ever used a cassette 
player to load data knows how long it can 
take to locate a particular program or 
file. Of course, we're supposed to use 
tape counters and write down the location 
of each program. But, nobody's perfect. 

Here's a tip from the Nine T Nine 
Users Group of Toronto, Ontario, that may 
be of use to those who neglect to put 
things in writing; Put it in speech. 
That is, before you start recording a 
file or program onto cassette, record its 
name using your voice. Doing so, you can 
hear your voice through the television or 
monitor speaker when you're searching the 
tape for the desired program. <0h, yes, 
remove the microphone jack frcm the 
recorder to record your voice and replace 
the jack before recording or loading your 
program . ) 

Now, wasn't that just too obvious to 
men t ion? 
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BEWARE THE WHITE ELEPHANT! 



The com-f or table days o-f our- black and silver TI ??/4A's are qone and the new cheaper to 
produce-and much cheaper 1 ooK i ng-wh i te TI 99/4A console. Unfortunately, the third part-/ modulp. 
won't work on most o-f them! There is no way to identify which ones will work by their product 
numbers, it must be operatinq to see if you bought a white elephant or a useablp console 
Observe the bottom right hand edge of the screen and look to see if it says c Texas 1 n=.trument«; 
1981 or c Texas Instruments ^2.2. 

If you have version 2.2, then you have the white elephant! The problem is a little thing 
Known as an auto-increment ing memory. Simply put, if the software module does not have the 
auto-incrementing memory chip, it is rejected by the console and the title screen reapppsrc". 
-«Thu5, the console will not run modules produced by Funware, Romox , Atari, or Parker Broj. 
Unfortunate, being as TI isn't going to produce modules either! 

Editors Note: The preceding article was taken from the 99/4 Users Of America New<^]ettpr in 
our continuing Newsletter Exchange Program. For more information on the auto-incrementing 
memory chip, see the TI Care Package article elsewhere in this Newsletter. 



A SPECIAL APPLICATION FOR THE TI 



By Dana Walker 

Editor's Note; The following article was taken, in full, from "Bog News", the Newsletter of 
TIBUG, Montgomery, Alabama. 

Dr. David Walker is a part time TI rep in Montgofnery , Alabama. He teaches at Auburn 
University in Montgomery. His wife, Dana, teaches at the same University. Dana contributed the 
llowing article to our newsletter. She is blind. 

Having a talking computer used to be only a pipe dream for blind programmers, except rich 
ones. Now, with the TI 99/4A, the Terminal Emulator module and the speech synthesizer, you can 
have a talking computer for a few hundred dollars instead of a few thousand. As a result, there 
is now a loose network of blind TI users all over the country who swap progranis and other 
informal i on. 

The first thing 1 did, after setting up the computer, was to label a few keys in braille, 
to help me get oriented to the keyboard. A friend had already had the reference manual and the 
TI BASIC book read onto tape, so 1 got a copy and began studying. 

The first big problem was that the computer is rather uncommunicative about errors. It 
would just beep and sit silent and uncooperative until my husband came in to read the error 
message to me. The solution was an error-read program. I just load it before I start my oi,\in 
programming. Then when the computer beeps, I enter "RUN 30000",. The computer then will tell 
me just what I've been doing wrong. 

I've gotten several good programs that are "speeched up*. One keeps tract of my 
talking-book request list; another is a Morse code practice program; another is an address file 
with an alphabetic sort routine. 1 am looking for word games like Han«nan that can be speeched. 
I also want to work on a word-processing program to use in writing at the computer; I think best 
at a keyboard, and the TI 99/ "lA could tell me what I've written. A friend is working on a 
program to make an impact printer produce braille hard copy, which will be a big advance. 

The only drawback to the 99/4A is that with the Terminal Emulator in use, you can't use any 
the other program modules. This means that you can't use the memory expansion card. Being 
able to run two modules at the same time would expand the possible uses of the TI 99/4A for the 
blind prograrmner . TI says, by the way, that in about a year they're coming out with te speech 
on a disc. This will be a great advantage. Meantime, I keep thinking of more things to dow 
with the computer - like the poetry-writing program. I wonder if it could be modified so that 
the coTiputer writes limericks. 



MICROS IN ACTim 



by Bill Cagle 

While on a plane, I read an article in a newspaper about computers. This article 
was based on the time spent on home computers and where this time came -from. This * 
data was obtained by a poll sent out by a ccmputer magazine and o-f the -fi-fteen hundred 
people responding, -fi-fty-four percent said that they spent less time watching 
television. They also stated that most o-f the computer time was spent in playing 
computer-games with other members o-f the family or by themselves. This sort oi 
in-formation makes me -feel good about the -future o-f computers in our country. I am 
also glad that computers are beginning to be considered by the lay public as an 
entertainment device. Just thinl<, i-f we could also see a swing to programming as a 
national pastime, imagine what an enormous amounts o-f so-ftware a million people could 
write. 

I also noticed an article in this same paper, about kids and computers. This 
article was about an undercurrent in our industry, that holds to the notion that "I-f a 
child doesn't have a computer by age -five, it will be unemployed by twenty— f i ve" . 
That just isn't true, because computer operation can be learned just like anything 
else and as so-ftware becomes more user -friendly, the task o-f operating computer 
systems will require less and less training. As hard<jare designs mature more and 
more, we might see the day o-f conputers without keyboards. This makes the -future look 
very bright indeed. 

Recently, my son talked me into seeing a movie named 'The Terminator". This -film 
is based on the premise that at some point in the -future, the world leader's will "put 
the security o-f the world, into the hands o-f a global computer that has the ability to 
learn and when this computer learned enough to get tired o-f the -frailties o-f human 
nature, it decided to be done with all humans. To accomplish this, it created a 
global nuclear holocost. The -first thing wrong with this concept, is that computers 
can not reason or learn. The very best they can do, is to compare numbers and detect 
the bigger or the smaller and sometimes look -for a comparison. While some so-ftware is 
so sophisticated, it creates an illusion that the computer is "thinking*, while all it 
is really doing, is just going through a series o-f, "i-f then's" and "goto's", etc. 
Tliere is some research .going on at present in the -field o-f arti-ficial intelligence and 
maybe I will do an article in the near -future, on that subject. One example o-f 
so-ftware that causes the computer to appear to think, is the program called Eliza. 
This program will be available on our Bulletin Board Service as soon as Bill Jones 
gets it done. 

There is another disturbing trend beginning to move into the white-collar 
industry. The bigger and better "work station" on your desk, the more power-ful you 
are and the more prestige you have. You will notice that in that last sentence, there 
was no mention of being able to use the power (of the work station). To make things 
even worse, the computer industry has responded to this trend by advertising the "up" 
features of their product. This will, in time, force these user's to buy computers 
with features that have no bearing on the job that they will be performing. This will 
tend to produce a sellers market and will probably inflate the price of the "top of 
the line" business products. 

Another year has seen it's last and in retrospect it has been a very full one for 
the HUGgers. Ue have seen the BBS be installed and then we have watched with great 
pleasure as Steve Sims and Bill Jones reworked it till the orginal identity is almost 
completely gone. For the next year we are going to undertake a massive membership 
drive and this will give us some new blood. Ue are also going to continue with the 
multiple workshop concept for our meetings. There is going to be some effort expended 
to install more assembly and Forth programs into our club libary. The future looks 
better and better for our club, doesn't it? 

Go FORTH young man and program the world to your likeing. 

^1 



HAM RADIO AND COMPUTERS 

i 

by Bob Summers ' 

Recent rule changes by the FCC have 
allowed a greater use o-f the computer by hams. j 
Previously about the only use was ior machine 
generated CW or continous wave telegraphy (morse > 
^ code.) ! 

Now hams may transmit ASCII and digital \ 
information as well. This has allowed *nets' to 
? spring up as well as bulletin boards. Program 
exchanges between hams (machine to machine) are now 
quite common» for example a station here may 
exchange with one in Japan and Europe at the same j 
time and no long distance phone bill either!! i 

Another new form of very rapid \ 
communication is the advent of packet radio. When 
transmitted, it sounds like a very short burst of | 
static noise. It can either accept for use at the i 
resident station* or if so coded » relay onto a more 
distant destination. It operates on a ^handshake 
basis' - verifying received data against data sent. ! 
The most amazing feature is it's ability to use 
channels that are in use by other modes without 
causing interference with those modes. It waits j 
until the channel is free and quickly "does it's i 
thing" and then waits until another free period 
occurs to continue the process. 

Plans are now being laid for a "packet j 
satellite" that will give nearly world-wide rapid 
error free communications to hams. Incidentally* 
the first non-military* non-commercial satellite 
ever orbited was OSCAR-i (Orbiting Satellite 
Carrying Amateur Radio) back in the mid 70's. 

Locally we . have a packet network on a 
'Simplex 2' meter Frequency. The RCA Radio Club 
maintains a bulletin board on a" 2 meter repeater. 
There is also a fast-scan T.V. repeater with a 
weather radar feed from the National Weather 1 
Service that is utilized during severe weather 
alerts. Those of you living on the east side of 
Indy and having a T.V. with continous tuning slugs 
in the UHF tuner may be able to tune Channel 14 
down and receive this machine without any further 
antennas or modifications. It's frequency is 
425.250 megahertz. 

The computer is also utilized by hams in 
Teletype or RTTY. It's use requires some hardware 
interfacing and the appropriate software to 
accomplish. It's primary usage is on the *low 
bands' where ranges are world wide. The hardware 
and software are still available for the TI at 
about $100 or slightly less. The hardware for CW 
can be built by the user and I have the program 
available for anyone interested. All parts are 
Radio Shack-available and will cost under $20. 

Enough for now. But the rules changes 
have given a more wide-spread use of the computer 
for communications and pleasure usaae of the ham. 
73 ' ■ ^ 



FROM THE HUGbbs 

AN EDITORIAL 

BY TI TIPS 

Our users group seems to be going off 
into almost as many different directions 
as there are members. There are people in 
our organization that are exploring nearly 
euery aspect of the little TI computer. 

We try to present things of common 
interest at monthly meetings but! think 
the glue that really binds us is the 
little tidbits of information that we 
collect and share with one another. On 
this board I see evidence of an under- 
current of activity amoung very different 
kinds of people. One gets information on 
Pascal from another who is working with 
Forth. Another is picking up valuable in- 
formation from an assembly programmer that 
he uses in Forth. At the swap table at the 
last meeting, there was a flurry of ac- 
tivity among many of the members. Because 
of our newsletter, we have a reputation 
around the country as one of the top 5 
groups in the U.S. 

Unfortunately, more and more people are 
abandoning their TI's as the date of last 
production fades farther into the past. 
One group published an estimate stating 
that 1000 TI's were being thrown in the 
closet each week. That only means that we 
will all have to work that much harder. 

Not to keep theTI alive,it will die 
in time dispite our best efforts, but to 
use it for w hat we b ought it for. LEARN, 
tha t's what you got a computer tor. An a 
share it with others. You Joined a group 
for just those reasons. Participate !! 



The foiling TI Tip was taken from our 
HUGbbs! 

This little tip comes from the Piedmont 
Computer group in Greenville, SC 

There are a lot of times when programs we 
write need to test for single key input from 
the keyboard. Usually, the line 
CALL KEY<0,K,S) or something similar is used. 
The problem here is that if we are looking for 
an upper case key and the user puts in a lower 
case when the alpha lock is up, he misses the 
intended input. 

A solution to the dilema is to change the 
statement to CALL KEY(3,K,S). Scanning this 
way ignores the alpha lock key and returns all 
keystrokes as upper case only. 

When you're finished, add the statement: 
CALL KEY<5,K,S) to set the scan back to normal 
or it will cause some strange results. 

The author says that it's in the XBASIC 
manual, but hard to find. 



DOES IT PAY TO LEARN PR06RAI%41N6? 



This is. an article which appeared in the May/June 
issue o-f The Electron, and submitted -for our 
Newsletter by Dennis Sher-fy. 

It is popular these days to assure hesitant 
computer buyers that they need not learn to program in 
order to use a computer. That statement is true, but 
Knowing how to program can certainly be an advantage. 
It can also be quite lucrative. It is estimated that 
authors Dan BricKlin and Rob Franston have earned a 
minimum o-f *10 million in royalties -for their 
hot-selling business program, Visicalc. Mitch Kapor, 
once an aid in a mental hospital, bought an Apple II 
on impulse without Knowing a thing about programming. 
Within a year he had written a statistics package that 
became the heart o-f Visitrend and Visiplot. His 
e-fforts made h im «1 ,700 ,000 richer. 

Paul Lutus lives on a mountain top in the Cascade 
Range o-f Oregon. When he saw the first ad for an 
Apple Computer he bought one, even though he had no 
electricity. He ran a 1300 ft. extension cord down 
the mountain side to the nearest power line. Because 
no word processing equipment was marKeted at the time, 
he wrote a program for his own needs. He sold the 
program, Apple Writer, outright for $7500, not knowing 
that royalties would have brought him 20 times that 
amount. He has wised up since then, and is now in the 
chips. When he as to go see his publisher, he coasts 
down the mountain on his bicycle to his private plane, 
loads the biKe aboard, and completes the trip from the 
publisher's nearest landing strip on his bike. 

You don't have to be very old to get into big bucks 
in programming. Imagine Software of England hired a 
16 year old boy to write games at f54,000 a year 
before he even had his school leaving certificate. 
Although he may be qualified to make this kind of 
money, British law doesn't think he is qualified o 
spend it. At 16 he cannot apply for a credit card and 
he cannot open a bank account to put his money in! 

Another 16 year old English school boy, Peter 
Simons, has come up with Simons' BASIC, a fantastic 
software package that adds no less than 114 additional 
commands to the basic set of 72 commands on the 
Commodore 64 computer. Some reviewers think Simons 
BASIC will eventually be built into the Corranodore 64 
as a standard part of the computer. 

There are at least 20 persons in America under the 
age of 25 who are earning over *100,000 a year 
developing programs for personal computers. Homemaker 
Robeta Williams was 26 when she played her first 
computer game. She decided immediately that she could 
design a better game, coming up with Mystery House. 
Her husband programmed it, hoping that it would bring 
them a little extra money. It sold like gangbusters, 
earning them the money to start their own software 
company. Sierra On-Line. Now, three years later, 
Roberta has five popular games to her credit, 
including the longest adventure ever published, 
Time Zone. It takes the average player sjjj months to 
complete the game playing 10 hours a week. 



A QUICK FIX FOR S-BU6 BUG 

by Tan Knight 
Jaci(sonui11e, Florida 
Editor's Note: The following article is printed in 
the HUGger Newsletter via the August, 1985 issue, of 
Penn Ohio Users Group Newsletter, Youngstown, Ohio. 

When TI finally released Super Bugger it had a 
'bug" in that it is supposed to be able "to 
disassemble or dump memory to a disk and uill not 
properly do this. (In rsy opinion this was a 
Tl-induced bug.) 

I have been working on this problem and have 
found a solution that, so far, seems to work fine. 

Uith no other program in memory, "S-Bug" loads 
from >A000 to >B96A and I will be referencing 
memory with this assumption. 



Memory 


Contains 


Chance 


Location 




To' 


AIS^ 


3F20 


lOlF 


B2DE 


?F00 


OFFF 


B2F2 


3F09 - 


1009 


B32A 


7F20 


!01F 


B342 


7F05 


1005 


B354 


7F00 


OFFF 


B366 


3F09 


1009 


B37A 


7F0O 


OFFF 


B3S2 


3F09 


1009 



These locations are all references to either 
the PAB or the data buffer which is used by DSRLINK 
which, by the way, is included in Super Bugger as 
are the ether utilities used by the procrani. It is 
:;mD]?te!y jtind-alone. All of the utilities art 
very siir.ilar to the ones that come with the 
Ed i tor/Assembl er Cartr idge . 

There are three ways to make these changes: 

1. Each time you load the orogrira ycu can maKe 
the changes while the program is running. 

2. The regular version (unccffloressed) can be 
changed using the "Editor" or with Tl-Uriter. Be 
sure that on each line that you change you al;.; 
change the "checksum" flag to an 8 (it is normal b 
. "J ■-. 

3. To change the ccsnoressed version you neec 
Disk Fixer or siaiie thing similar. You actual 1: 
chanoe the disk iriformation. H you are farailisr 
with the use of Disk Fixer you should have nt 
problem, otherwise it could get very hairy. 



MICROS IN ACTION 

by Bin Cagle 

Perceptions: 

Recently, while talking to a computer 
hobbyist, I remarked about what an excellent 
disk manager TI had installed in the 99/4A. He 
seemed interested so I pressed on and started 
to recount the many blessing's o-f not having 
=^0 reserve disk space prior to writing files 
or saving programs. I also told him that when 
.we read in a program, enlarge it and then re- 
save the program, TI's "Disk Manager" would 
•fill the old hole, -fractionate the remainder 
and continue storing the remainder in the next 
available space. This person owns an IBM and 
when he heard this, he said "What price do you 
pay for this in time?* I told him that it was 
so quick that you couldn't tell the differ- 
ence. He flushed, turned and walked away from 
me and I knew that while I had won a battle, I 
had hurt him badly. The previously mentioned 
encounter points up a danger in our hobby. 
When we talk to other people in our hobby, we 
should be aware that other people love their 
"hobby toys" as much as we love our's. 

Each of us perceives our computer in a 
different light. The very existence of this 
club stems from the desire to learn and use 
the full potential of our computer to a higher 
degree, than we could do otherwise. Most 
people' develop a fondness for their "toys" 
that far outreachs the utility value to them. 
This might be in part due to the enormous 
amount of time and money we must invest in our 
systems to bring them to their full potential. 

I have the perception of my computer as a 
complete set of tools in a magic packags; push 
a button and you have a hammer, push It again 
and you have a drill, push it again and you 
have a saw, push it still once more and you 
have a sander. This perception is more real 
than you might think, as your computer can 
change its identity by merely pushing a button 
(loading different software). This means that 
your magic tool needs software to change its 
identity, so keep up your efforts to write 
software <as well as purchasing it). To 
illustrate this, I recently purchased some 
software called "Multiplan" and when I tried 
to use it on my expenses I was dismayed to see 
how slow it was. This shows that a general 
purpose software is never as good as some 
written to do a specific job. 

For all of you who are interested in 
Forth, I have found that the TI Doom seriefe is 
written in Forth. If you have this game, you 
might want to look at them with the Forth 
Editor and study the programing style and 
methods. If you can figure out what the 
author is doing, you can increase your own 
programing knowledge. 



THREE SLOT EXPANSION KIT 
by Wi 11 iam M. Lucid 

; This kit gives the TI user a 
mini-expansion system that connects 
directly to the right side of the 
console, there is NO FAN required on 
this expansion kit. Source of the kit: 

Captain's Wheel 
' 17295 Chippendale 

Farmington, MN 55024 
: (612) 460-6348 

I Cost of the kit is $35.00, plus $5.00 
^ shipping and • handling. Disk power 
I supply option is an additional $10.00. 
! The kit comes with all edge connectors 
, (gold-plated) soldered in place, this 
I saves the kit builder 180 plus delicate 
J soldering connections. All parts needed 
I to complete the kit are included, except 
I an enclosure. Dimmensions are given in 
the documentation for constructing your 
; own enclosure. Captain's Wheel no 
I longer sells three slot kit enclosures, 
i Balance of the assembly consists of a 
I few resistors, a few capacitors, two 
intergrated circuits and 30 jumpers, 
(another some 60 solder points). Wire 
provided with the kit, is rainbow, 
muticonductor ribbion cable, that is 
stripped for jumpers, (insulation on 
this wire has a very low meltinq point). 
Solder traces on the one sided pc board 
a very fine line and closely spaced. 

Documentation is complete with good 
illustrations. During assembly you 
proceed by checking off each step on the 
instructions. Verification check out 
explained in the documentation, this 
consists of using a voltmeter to verify 
voltages called out at points on the pc 
board. This is IMPORTANT to assure 
proper voltages are present, so NO 
DAMAGE results when hardware cards are 
installed into the system. 

Captain's Wheel allows you to return the 
assembled kit for check out verification 
and installation of cards at no charqe- 
however, you must send $5.00 to cover 
the return cost of shipping and 
handling. 



MICRO'S IN ACTION 



By Bill CaiQl e 

Millions o-f light years -from Earth, an electronic -frontier was 
constructed across the universe to protect the Star League o-f Planets 
from its enemy, the Ko-Dan . Now the Ko-Dan's gigantic mother ship is 
pictured gliding into position to blast its way through the frontier as 
numerous smaller spacecraft take of and land on its multilevel deck. 
Only the skill and daring of a small group of starfighter pilots, lead 
by an IS-year-old videogame champion shanghaied from Earth, can save 
the Star League from destruction. 

That scene was from the movie "The Last Starfighter" and it only 
existed in the memory of a Cray X-MP computer. This movie was the 
handy work of a company named Digital Productions and they have a 
copyrighted process that generates extremely complex and realistic 
pictures of places and things that never existed except in a computer 
memory. The name of this process is Digital Scene Simulator. 

The art of computer imaging and animation have been with us for 
several years and has even been used by the auto industry and others as 
well. Only the military and a few of the largest scientific 
laboratories are using as large a computer as Digital Productions. 
<The Cray X-MP can do about one billion calculations per second. <The 
TI99/4A can do about six thousand calculations per second by 
compar i son . ) 

Another measure of the power required to generate high detail 
scenes, is the number of polygons of information is required for each 
frame. The Starfighter picture used from 350,000 to 4 million polygons 
of information for each scene. To give you an idea of how many this 
is, the Disney picture "Tron" used about 7 thousand polygons of 
information per frame. 

There is some thought geing given for the production of human form 
and speech. The amount of processing power to recreate the human form 
with all it's nuances of movement will be ready in about seven to eight 
years. Just think, you will have movies with The Duke and Clark Gable 
at our command. Producers, writers and directors are beginning to 
realize that traditional special effects cannot produce, in a cost 
effective way, the motion picture sequences they have in their 
i mag i nat i ons . 

If Sam Goldwin were alive today, he would probably have a heart 
attack with the excitement this tool will eventually bring to the 
entertainment industr-y. 
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/4A DISK FORMAT 




Editor's Note: The following article was copied from "The Paper Peripheral", Newsletter of the Central Texas 9?/4A Users Group 
P.O. Box 3026; Austin, Texas. 

Ue are indebted to Wayne Talbot, who found this infomation in a file on CompuServe. The inforuation was contributed t^ 
CorspuServe by Earl Hall, and we are grateful to hin for the information. Wayne was looking for this infornation in order to get 
good look at the disk for Tunnels of Doom, in order to figure out what is on that disk, to further his effort to write a new TO. 
adventure. (If anyone out there has any information that would help Wayne in this endeavor, please contact him through th- 
Central Texas Users Group. All TOD fans will appreciate it!) 

The following is a complete and, to the best of my knowledge, accurate description of the disk directory format and file storag 
allocation used by the 99/'lA computer. 

Setter B cmtains iht Volust Inforaation Block 

Adcb'ess Contents 

0000-0009 Disk nane-up to 10 characters 

OOOA-OOOB Total number of sectors on disk 00168=340, >02DO=720, )05A0=1440) 
OOOC >09 (8 of sectors/trk) 
OOOD-OOOF 'DSK' 0445348) 

0010 >50=Di5k backup protected, >20=not protected 

0011 8 of tracks per side O2&=40, )23=35) 
0012-0013 8 of sides/density O0101=SS/SD, >0201=DS^, )0202=DS/DD) 
0038-end Sector allocation bit map. See note below. 

Note on >0038-end: This is a sector-by-sector bit nap of sector use; l=5ector used, 0=5ector available. The first byte is f.o 
sectors through 7, the second for sectors 8 through 15, and so on. Within each byte, the bits is for sectors through 7, th 
second for sectors 8 through 15, and so on. Within each byte, the bits correspond to the sectors froi right to left. Fo 
example, if byte >0038 contained >CFOO then the first byte equals 1100 nil. This means that sectors through 3 are used 
sectors 4 and 5 unused and sectors i and 7 are used. Information for the 2nd side of a DS/DD disk starts at byte >0065 and end 
at byte )0091. 

SsctM' 1 CMtains the Dirtctor Link 
Each 14-bit word lists the sector number of the File Descriptor Record for an allocated file, in alphabetical order of the fil 
names. The list is terminated by a word containing >0000| therefore, the maximum number of files per disk is 127 [<256/2)-l]. 1 
the alphabetical order is corrupted (by a system crash during name change, for instance), the binary search method used to beat 
files will be effected and files may become unavailable. 

Sectors 2 to 21 contain the File DeKriptcr Records 

Address Contents 

0000-0009 File name—up to 10 characters 

OOOC Filetype: )00=DIS/FIX, )01=Program (memory- image), >02=im"/FIX, >80=DISAWR, >82=INT/^R 

File deletion protection invoked by Disk Hanager 2 will be shown by >08 added to the above. 
OOOD 8 of (IttXRECSIZE) record/sector. 

OOOE-OOOF 8 of sectors allocated to this file. (Disk Manager 2 will list one more than this number, thereby including thi 
sector in the sector count.) 

0010 For memory-image program files and variable-length data files, this contains the number of bytes used in the las 
disk sector. This is used to determine end-of-file. 

0011 MAXRECSIZE of data file. 

0012-0013 file record count, but with the second byte being the high-order byte of the value. 
OOlC-end Block Link. See note below. 

Note on file storage: Files are placed on the disk in f irst-ccoe/f irst-served manner. The first file written will start at sectc 
0022, and each subsequent file will be placed after it. If the first file is deleted, a newer file will be written in thj spat 
it occupied. If this space isn't big enough, the file will be 'fractured', and the remainder will be placed in the next availabl 
block of sectors. The block link map keeps track of this fracturing. Each block link is 3 bytes long. The value of the 2r 
digit of the second byte followed by the 2 digits of the first byte is the address of the first sector of the extent. The vali 
of the 3rd byte followed by the first digit of the 2nd byte is the number of additional sectors within this extent. Sectors 
through 21 are reserved for File Descriptor Records and are allocated for file data only if no other available sectors exist. I 
more than 32 files are stored on a disk, additional File Descriptor Records will be allocated as needed, one sector at a tine frc 
the general available sector pool. 



ALGORITHMS A NEW FEATURE FOR OUR LIBRARY 



By Bill Jones 

Most of us purchased a computer (or one was purchased for us), so that we could learn to program It. And one 
feature of our user's group Is the education we can provide for newcomers. Many of the members have taken advantage 
of classes In BASIC and Extended BASIC and have learned a great deal. But that's only the beginning of learning to 
program computers. 

If I gave you a set of the finest Swiss watchmaker's tools and spent many hours teaching you what each tool 
could do and how to use It, I still would not have trained you to make a watch. You may develop the skills you need 
to make a watch, but you wouldn't know HOW to make a watch even though you knew how to use the tools. It 
Illustrates the difference between learning a computer language and learning to program. 

When we learned the language, we looked at the programming style that others used and we learned method too. 
Over the few years that we've been together as a group, we've collected a very complete selection of the programming 
efforts of our mender's and others from around the country and until now, the library has been kept mostly on disks. 
There will be a new part to our library, a part that teaches method not language. It will be kept, not on disks, 
but on 4 X 6 file cards and you are about to see how to use It. 

Apart from any language, there is an underlying method or formula for getting a job done. We will be 
assembling "recelpe cards" on how to do small. Individual programming tasks. The formula is known as an ALGORITHM 
and It Is a precise statement of events necessary to make a process happen. For example, some programs I write need 
to remove a character from an input line, (say a comma). In extended BASIC, the code to do that job might look 
like this: 

100 L INPUT A$ 

110 A«P0S(A$,",",1) 

120 IF A THEN 130 ELSE 200 

130 IF A=l THEN 180 

140 B$=SEG$(A$.1.A-1) 

150 C5='SEG$(AJ,A+1,LEN(A$)) 

160 AJ=B$4C$ 

170 GOTO 110 

180 A$»SEG$(A$,2,LEN(A$)) 
190 GOTO 110 
200 PRINT A$ 
210 END 

If this Is the task as it Is programmed, then here is its algorithm: 

1. Get a string of characters. 

2. Is there at least one comma in the string? 

If not, we're ready to print It and quit. 

3. Is a conma In the first position? 

if so, get the rest of the line, leaving the conina behind, and go 
back to check again. 

4. Otherwise get all the string before the comma and all the string after 

the conina and leave the conma behind. 

5. Go back to step 2 and check for another coirnia. 

An algorithm is not specific to any one language, it can be used in most any language and it will do the same 
task in each. It only gives you the method of solving a task not the program. And an algorithm Is not a 
description of an entire program, just a single focused task within a program. When you solve a problem, write down 
its algorithm and put it in the library. In time, we will have a solution library that can be used by progranmers 
In BASIC, FORTH, P-code and assembly. To put it in the library, begin by giving It a subject at the top of the 
card. Mine Is the "ONE-CHARACTER REMOVER". Then fill out, step by step, how the process works. You might also 
Include the name of the program It came from If It's In the library too. If It's long, use more than one card, but 
put the subject on each card. Don't write the program, just its algorithm. Then drop them In the section marked 
"NEW" so the librarians can keep the card catalog current each month. If you need to know how to do some special 
task in one of your programs, check the catalog, may be someone has already figured out how. From time to time, the 
best ones will be published here in the newsletter. 

n 



THE COMPUTER OPERATOR 



Fleet winging, heart singing, he trots through the doo.-. so 
happy to be amidst the clatter and roar. Computer ano printer, 
the job is a whole, is heaven to him, provides -food for his soul. 

No other, his mother, his Kids nor nis wife, receives such 
devotion, gives meaning to life. To enter the center is life's 
greatest joy, providing a pleasure that surely won't dov. 

Pulsating, awaiting his gentle commands, tne ng seems to 
recognise capable hands. Confidant, competant. he flits here and 
there, getting things ready to go on the air. 

Drives counted, tapes mounted alreaoy to go, he pauses a 
moment, his features aglow, serenely, routinely, he pushes the 
start, and its just about then things fly apart. 

One tape, then another, gives out whistles and screams, the 
printer goes mad. spev.'ing paper :n reams, the lights on the 
console give a fireworKs display, and in a momentary panic his 
feet turn to da v. 

His heart begins pounding and surelv must Surst, as the whole 
crazy ng acts liKe something accursed for wha-. seems an 
eternity but is only a flash, his feet bogged down in a 
glutinous mass, he's unable to move and jnatjie to speak as the 
computer goes dead with a pitiful squeaK. 

Head ringing, eves stinging, ne goes for the switch. KnccKing 
down the power on his beautiful witch. Denuxoed feeling stunnec. 
hot yet able to guess the calamitous cause of this horrible mess. 

Traumatic, dramatic, the shocK is profound for fully i minute, 
he utters no sound, then walKing, hands shaKing, his temper 
gives way and the curses start fWing, I'm sorr to say. 

He curses the mainframe, the tape arives as v.eU. he curses 
the card reader, consigns it to hell, he curses the printer, he 
curses the punch, he curses the console, and then on a hunch, he 
curses the program and while still untiring, curses the 
diodes, transistors and wiring, he curses the present, ne 
curses the future, he curses the day ne saw a computer. At 
last, quite exhausted, he falls to the floor unable to utter 
one little curse more. 

Bedeviled, disheveled, his face chalKv white, e ves bloodshot, 
tongue lolling, a pitiful sight. It's ever, all over, tne oattle 
IS done twixt man and machine, the computer has won. 

Muttering, stuttering, completely insane, he mumdles this 

warning again and again. IDIOTS. IDIOTS. CAN'T ANYONE SEE. THAT 

ANYTIME'nOW you 'may end up like me ANONYMOUS 

«««««««««««««««««««« 

This poem was copied from the 99'ers Users Group Association June, i934 
Newsletter. The poem was originallv printed in the February, 1984 issue of the 
"Melbourne Times", Newsletter of the Melbourne, Australia TI-994A Users Group and 
reprinted in the United States by the Cin-Day Users Group in their May, 19S4 
Newsletter. 



TI TERMimL EMULATOR II ALTERNATIVES 



by Willi. 

This article will cower two terminal 
emulator programs -for the TI 99/ 4A system. 
I use the word system because these 
programs require; 1. RS232, 2. 32K memory 
expansion, 3. Disk system, and 4. Editor/ 
Assembler module or CorComp disk 
controller. Programs cowered in this 
article are TE-1200, and PTERM-99. 

The purpose o-f a terminal emulator is 
to enable trans-fer o-f data between 
computers, allowing sending and receiving 
systems to "talk" in a recognized method 
o-f handling data, even when sending 
computer is di-f-ferent than receiving 
computer. The terminal emulator program 
is used to set communcation parameters for 
using a MODEM with a RS232 inter-face. 
Some parameters encountered in terminal 
emulators are BAUD rate,' RS232 <l-4), 
Parity, Stop bits, Echo, and Data bits. 
Another use o-f a terminal emulator program 
is to 50-ftware inter-face radio amateur 
equipment. I have been able to use these 
programs to inter-face with KANTRONICS UTU 
-for receiving RTTY as well as other modes 
o-f communications without having to layout 
additional money, -for KANTRONICS, HAMSOi^ 
so-ftware -for the TI 99 4/A. 

TE-1200 by E. Earle Thompson was the 
first alternative for the TI TERMINAL 
B1ULAT0R II, that had capabilities o-f 
"auto-logging". Auto-logging allows you 
to use 32K memory expansion to "hold" 
incoming data. Uhen the 12.5 k o-f ram 
buf-fer is -full, program automatically 
dumps the 12.5 K bytes, (approximately 48 
sectors) o-f data to a disk -file that has 
been set-up pressing "Control" and "4° 
keys when parameters were inputed. The 
outputted -file is a display, variable 128. 
Outputting o-f the -file is done while 
ON-LINE, this increases your on-line 
charges, possibly long distance such as 
SOURCE and COMPUSERVE. TE-12Q0 
communcat i ons parameters can be re-entered 
anytime by pressing "control" and "1" 
keys. Also to recall an Auto-logged -file 
to use with a editor program such as 
TI -WRITER or EDITOR/ASSBiBLER the display, 
variable 128 -file must be conveted to a 
display, variable 80 -file. TE-1200 allows 
the user to select baud rates O-f 110 upto 
9600, baud rate depentent on modem baud 
rate, capability o-f RS232, and some other 
variables such as line noise, tolerance 
■for error. The last item is important in 
cases where no "missing" data can be 
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tolerated, such as transmitting an assembly 
-file. The -faster the baud rate, the greater the 
risk o-f garbled or lost data when using non- 
deciated telephone lines. TE-1200 supports same 
■file trans-fers as TI TERMINAL EMULATOR II, this 
-feature allow you to use downloading -feature o-i 
T.I.B.B.S. bulletin boards which require either 
TI TERMINAL BIULATOR II or TE-1200. 

Another excellent terminal emulator program 
is P-TERM-99 by C. Richard Bryant. This program 
lives up to its claim o-f, "the ultimate 
terminal program. 300/1200 baud, 24K dattnload 
bu-f-fer, 20K upload bu-f-fer, 254 color combin- 
ations and many more options." One o-f those 
other options is the ability to toggle your 
printer on and o-f-f by pressing "control" and 
"1" keys, with this -feature you can 
simutaneousl y display and print at the same 
time or toggle printer o-f-f to only display 
data. De-fault values are -for 300 baud, RS232 
port 1, even parity, 1 stop bit, and 7 bits 
data. De-fault values can be selected at -first 
prompt by pressing enter twice. PTERM-99 will 
load -from Extended Basic, Editor/Assembler or 
Mini-Memory modules. This program allows -for 
resetting communication parameters at any time 
by pressing "control" and "7" keys. Pressing 
"-function" and "7" allows you to select 
-foreground and background colors o-f your 
per-ference, choices are presented on screen to 
aid in making selection. Outputting o-f the 
download bu-f-fer when -full will occupy about 110 
sectors. When the download bu-f-fer is within IK 
o-f being -full the screen will turn red, this 
-feature works very well. When screen turns red 
you must dump the download bu-f-fer or the 
download bu-f-fer will be over written. Download 
bu-f-fer -file output, i -f a disk -file is in the 
display variable 80 -format. Upload text -files 
need to be in display variable 80 format. I 
have found this works best by removing control 
characters. T.I.B.B.S. bulletin boards will not 
"recognize" PTERM-99. the first time you attempt 
to log on. Another disadvantage is true TE II 
"File transfer protocal " is not a feature of 
this well planned, easy to use, and ecomonical 
program. PTEPJ''l-99 is a reliable, dependable, 
and proven program, well worth the $17.50! 

':TE-1200 is published by Softmail, PO Box 
745, Rockwall, T)< 75087. TE-1200 is listed in 
UNISOURCE catalog. UNISOURCE has a toll free 
telephone number 1-800-858-4580, there address 
is Box 64240, Lubbock, T)< 79464 the last price 
update I received shows TE-1200 costing •539.95. 
PTERri-99 is being sold by TB<AMEf^TS, 53 Center 
Street, Patchogue, NY 11772, program costs 
$17.50 and includes shipping.) 



TERMINAL EMULATOR II ALTERNATH-^ES by William M. Lucid 



This article discusses Joe Freeman's TE3C, Uersion 3.1 program. TE3C 
is public domain, a copy o-f this program along with source code is 
available in the User Group Library. TE3C disk in the library includes 
source code, true lowwer case letters, two con-f i gurar t i on -files, as 
well as documentation on disk in d i sp 1 ay , var i abl e 88 -format. 

Features o-f TE3C include the -following: 1. Choice o-f 43 column screen 
or 30 column screen. 2. 24 K byte download caputure bu-f-fer (this is 
about 100 sectors). 3. 29 K byte upload bu-f-fer < th i s allows composing 
text o-f-f line using program capable o-f creatinq display, variable Bd 
•files, I.e. TI-WRITER editor or EDITOR/ASSEMBER' s editor). 4. 
Prograin has an auto-dial -feature, which is also documented on the 
library disk. 5. Loads T I -WRITER' s lowwer case characters. 6. 
On-screen help is available while program is running by pressing the 
■function key and 7 at the same time. .7. Supports ^)DM3A protocal -for 
UNIX systems or SERIES I's running YALE I UP. 8. Upload and download 
-files are done in the display, variable 89 format (program does not 
suport TE II -file upload and download protocal). 9. Program supports 
eleven -funct.ion keys and eight control keys. 19. Baud rates 
supportted are 390 and 1299. 

Loading prooram -for use requires a disk system, 32 K memory expansion 
and EDITOR/ASSEMBLER module or CORCCMP's disk controller. Using 
EDITOR/ASSEMBLER select option 3, load and run option, -filename to 
enter is TE3C. Pr ogr ejTi w i 1 1 run automatically. When prompted -for 
con-f igu re -filename, enter UFENG or CONFIG. An alternative to enter a 
co.n-f i guat i on -filename is to press enter key and select parameter as 
prompted. Documentation tells how to create your own con-f i curat i on 
•file. 

Joe Freeman is to be commended for making TE3C, Version 3.1 public 
domain. Source coding for TE3C is well documented. 

I have had my disk" controller fail and have had no alternative except 
TI's TERMINAL EMULATOR II, it really made me feel handicapped after 
have used one of the other alternative terminal emulators; however, 
with TE II, you do not need a disk system. This comment is included 
here for those that might consider selling or trading TERMINAL EMULATOR 

II after obtaining an alternative terminal emulator. 

Here is Joe Freeman's schematic for implementing auto-dial function. 
There are no specific part numbers listed, use of this schematic is at 
ONE'S OWN RISK! 
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TERMINAL EMULATOR II ALTERNATIVE by William M. Lucid 



This article discusses Paul Charlton's FASTERH version 
1.16. This is a FREEV/ARE program the asking donation 
is $15,00. Paul Charlton's address is 1110 Pinehurst. 
Ct, Charlottesville, Virginia 22901. 

Version 1.16 consists of two "program inaga" files 
(FASTERM and FASTERN), DEFAULT (a program to setup a 
default parameter file), and COMMSUM (a text file with 
cominands summarized). FASTERM loads from 
EDITOR/ASSEMBLER, option 5, TI -WRITER, option 3. 
TI-EXTEHDED basic program V0LKS12 v;ill also load 
FASTERM, a v-ord of caution using V0LKS12 to load 
FASTERM, some bulletin boards do not allow enough time 
to load program after connecting and will hang up. 

Creating a default file is accomplished by using 
console basic with the EDITOR/ASSEMBLER inserted, and 
running the basic program DEFAULT. Follow the 
directions on screen for Setting up default file. When 
you load FASTERM, you v/ill be given a prompt for 
default filename. Enter the default filename you used 
when you created default file using DEFAULT program. 

File transfers with FASTERM is done with one of three 
protocals, which are 1. ASCII text files, 2. Terminal 
Enulator II protocal, and 3. XMODEM protocal. 

Receiving ASCII files is done by creating a logging 
file by pressing (FCTN), (B) at the same time. This 
will close any previous loaging fil? and ask for a new 
logging filename. Pressing (FCTN), (,)win stop data 
from going to the logging file. Press (FCTM), (B) 
again, this v.'ill write data tc T egging file and close 
logging file, A proper setup of FASTERM using the 
DEFAULT program will keep you from 'losing data. Data 
in the memory buffer can be cleared at anytime by 
pressing (FCTN), (Y) at same time. 

Sending ASCII files is done by pressing (FCTN), Ui) at 
the same time and giving filename of the file you want 
to send. Press (FCTiJ), (,) at the same tine to start 
sending the file. You be v/ill asked if you want to 
send the file line-by-line. If file is send 
linc-by-line you must press the (SPACEBAR) ever/time 
you send another line. Press (FCTW), (4) at the same 
time to stop sending from the file. If the file is not 
sent line-by-line, tnen the file is sent as fast as the 
other system can handle it (XOFF/XON handshakinq) . 
When file is finished press (FCTN). (i). ASCII files 
sent by either of the methods may be DISPLAY, FIXED 80 
or DISPLAY, VARIABLE 30. Linefeeds may be added after 
every carriage return by pressing (FCTN), (J). 
Pressing (FCTn), (J) again will disable linefeeds from 
being added to carriage return. 



Uploading with XMODEM is done by pressing (FCTM), Hi) 
give the filename you want to send, if you do not do 
this FASTERM will attemp to send DSK1.SE^JDFILE file. 
Tell the other system you wont to upload. When the 
other system is ready for upload, press (FCTU). 
(SHIFT), (X) at the same time, enter "S" to send fUe. 
If asked, if you vont CRC, answer that you do. Press . 
(FCTN), (4) at anytime to abort file transfer. 

Here are some "special functions" of FASTERM. Pressing , 
(FCTN), (K) at the same time will enable an elaDsed 
tinier (timer is stopped ••»ith any disk operation also, 
the elapsed tir>er is disabled at baud rates over 1200). 
A "short catalog" can be obtained by pressing (FCTu), 
(?), this "short catalog" only gives filenames. 
FASTERM allov/s you to suspend incoming data by pressino 
(FCTN), (0). Pressing the (SPACEBAR) will scroll back 
through the memory buffer. While in this mode ft is 
possible to get s screen dump by Dressing (FCTN), 
(SHIFT). (P). Press (FCTN), (0) to return to inconino 
data, several pages of data may scroll off the screen', 
as- the buffer catches uo v.'ith the screen display. 

„FASTERM on HUGbbs produces reverse video, to correct 
this, press (FCTK), (SHIFT), (D) all at the same time, 
this v/ill put you into half duplex. Now press (CTRL), 
(li) at the same tine to produce normal video. Press 
(FCTN), (SHIFT), (D) again to return to full duplex. 

Sending files using TERMINAL EMULATOR II protocal | 
requires pressing three keys at the same time, press 
(FCTN). (SHIFT), (T). Press (FCTN). (N) give the \ 
filename you want to send. Tell the other system that | 
you v/ant to upload. Pressing (FCTN), (,) to send the 
file. You may abort the transfer anytime by pressing | 
(FCTN), (4). 

Receiving files using TERMINAL EMULATOR II protocal 
requires pressing three keys at the same time, press 
(FCTN), (SHIFT). (T). Press (FCTN). (N) and give : 
filename you i/ant data to go into on your system. Tell 
the other system you want to download. Press (FCTK), 
(4) to abort transfer at anytime. 

REMEMBER the default, that is if you do not enter a 
filename by using (FCTN), (N) FASTERM will write to a 
file on your system v/ith the filename DSKl.SENDFILE. 
There is a risk of over writing an earlier file that 
was downloaded as the default name DSKl.SENDFILE be 
forewarned! 

Downloading with XMODEM is done by pressing (FCTN), (N) 
give filename you want data to go into on your system. 
Enter the command to tell the other system you want to 
download. Wait until the other system tells you that 
the download has started. Press (FCTN), (SHIFT), (X) 
to sel3ct XMODEM file transfer protocal, enter "R" to 
receive file. If asked, if you v/ant CRC, answer that 
you do. You may press (FCTN), (4) at anytime to abort 
transfer. 
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TI STATISTICS 



By Roger 

From Compute!, December, 1983; page 196. 

In many pro-fessions there is a need to 
analyze something statistically. Engineers, 
medical researchers, psychologists, and 
^cial scientists o-ften must generalize -from 
data samples and make predictions concerning 
the probability o-f events. Not many years 
iqo this data analysis was a tedious and 
expensive task, using calculators and many 
clerical assistants to per-form manual 
computat i ons. 

In addition, because the mathematics o-f 
statistics appear so -formidable, 
pro-fessionals o-ften hesitate to try to 
explain the implications o-f their data. 

Texas Instruments has helped remove some 
o-f this anxiety with its Statistics Command 
Module, a series o-f programs that per-form 
dozens o-f the most commonly needed 
statistical techniques. 

The module leads the researcher through 
the procedures of statistical analysis in'a 
-friendly and e-f-ficient way. The only 
hardware requirements -for running 
complicated statistics programs are the 
TI-99,/4 or 4A console, a monitor, and the 
module.- While not essential, a printer and 
a cassette or disk drive will eliminate 
having to reenter the data set and -file 
structure i-f you want a second look at your 
■f i ndi ngs. 

Learn The Basics First 

Be-fore plugging in the module, it is 
important that you thoroughly read the 
48-page i nstruc t i on manual at least twice. 
The time spent will be rewarded with a clear 
understanding o-f the module's capabilities 
and a basic understanding o-f statistics 
itseW. 

When the module is inserted into the 
console, a title screen is displayed, 
-followed in a -few seconds by the first of 
several menus (see Figure 1). 

Figure 1: Program Options 
Press 

1 TO CREATE A NEW FILE 

2 LOAD m EXISTING FILE 

3 USE SIGNIFICANCE LEVEL CALCULATOR 

4 QUIT 

Typing 1 allows you to set up your file 
structure. You name each variable, 
determine its type (alphanumeric, integer, 
decimal, or scientific notation), and 
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enter the maximum number of digits of ea-'-h 
variable. The number of variables allc^^ J 
depends on the width of each entry and the 
number of observations. 

Conversely, the number of observations that 
you will be able to enter depends on the number 
and specifications of the variables you have 
selected. It is important to carefully define 
the parameters of the problem so that you will 
be able to use all of your observations without 
getting a MEMORY FULL message. 

Another reason for care when you specify the 
initial file structure is that there is no 
provisions for editing file specifications once 
they have been set up. 

When the file structure has been 
established, the next menu will be displayed 
<see Figure 2). 

Figure 2: Basic File Structure 

Main Index 

PRESS 

1 TO SEE FILE DEFINITION 

2 ENTER OBSERVATIONS 

3 CHANGE OBSERVATIONS 

4 ANALYZE DATA FILE 

5 SAVE DATA FILE • 

6 QUIT 

At any time, you can return to the main 
index, select option 1 and review the 
specifications of the file. But remember, you 
don-'t have a chance to change anything, unless 
you're willing to reenter the entire file 
definitiom. 

Entering Data 

When you are certain that your file is 
arranged exactly as you want it, it's time to 
select option 2 and begin entering data. The 
module will prompt you with the names of the 
variables as each is typed in. 

Data entry is slow. A fast typist must slow 
down to about half speed because the module will 
not accept entries at usual typing speed. The 
first variable value will be accepted, but the 
initial digit of the second or succeedino 
variables often gets lost. An entry of 84 
becomes 4, an entry of 1.3794 will become .3794. 

After all your data has been entered, you 
can verify its accuracy by selecting option 3 
from the menu and single-stepping through your 
data set, making any changes that are necessary. 
There is no provision for LISTing your data t 
printer to check each observation for accura.., . 
This would be desirable, especially to see that 
decimal data is properly entered. 
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TI STATISTICS 

Cont i nued 



Analyzing The Data 

At last the preliminaries are completed, 

and you're ready to get down to the real 

purpose o-f the program: looking at your data 

•from a statistical point o-f view. By 

pressing option 4 o-f the main index you are 
given a new menu <see Figure 3). 

Figure 3: Analysis Options 

ANALYZE DATA FILE 

PRESS 

1 FOR DESCRIPTIVE STATISTICS 

2 CORRELATIOf«l 

3 LINEAR REGRESSION ANALYSIS 

4 INFERENTIAL STATISTICS 

5 TO EXIT THIS SECTION 

Each o-f the -four options is thoroughly 
described in the user's manual . Few 



researchers wi 1 1 need all o-f the procedures 
available. In -fact, it may be best to learn to. 
use one technique at a time. The enormous 
amount o-f in-formation -from the analysis of even 
a simple data set can be overwhelming. ir 

Although the Statistics Command Module can 
provide volumes o-f in-formation about a data set, 
it does have limitations. Evaluation o-f a great 
deal o-f in-formation can be hampered by memory 
problems i-f the module is used without memory 
expansion. In addition, no provision exists in 
the program to screen out data entry errors by 
speci-fying acceptable ranges -for each variable. 

For nonprogrammers who need a means o-f 
analyzing -fairly simple data sets, however, the 
module can be a use-ful tool. And -for anyone 
seeking a relatively painless introduction to 
Stat i st i cs, it is superb. 
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Today, Charles Ehninger of Ehninger 
Associates, Inc., land the software 
programmer responsible for the FUTURA 
business packages deve.loped for 
TI-9S/4a confirmed reports that his 
company has been retained by Myarc, 
Inc., to develop software for the 
TI-99/8 personal computer. While 
there remains a bit of confusion over 
what the market name will be, reliable 
sources have confirmed the' internal 
name to be CYPRESS. The internally 
named Cypress is expected to debut 
somet i me 1 at e this summer . 

99/4A COMPATIBILITY 

For those of you like myself,, have 
"kept the faith" and expanded your 
system with such peripherals as the PE 
BOX, RS232 CARD, 32K MEM EXP. CARD, 
DISK DRIVECS), DISK DRIVE CONTROLLER 
CARD, MODEM, and recently, the 128K 
Card, you can relax!! The Cypress 
personal computer will be lOOX 
compatible with the PE Box and its 
host of cards and software with more 
lace on the way. 

A NEW LOOK! 

The ? computer, internally called the 
Cypress, will have a new look! "Its 
keyboard is styled like that of the 
IBM PC," Mr. Ehninger said. This 
desirable modification will certainly 
be appreciated. With the- new styled 
keyboard, comes a standard SO column 
text display for you monitor users. 
The price tag for this gem is 
speculated to be around *400.00. This 
feature alone should shelf any plans 
to purchase an 80 column card for the 
99/4a at least until this summer. 

Move over PC! Watch out Apple! Byte 
the dust Commodore! !!!!!! 

With the caliber of committment to 
quality Ehninger associates has 
evidenced by the Futura intergrated 
business package for small businesses, 
we can anticipate that the consumer 
will be the real beneficiary of any 
contractural arrangement made between 
Ehninger Associates and Myarc. 



The price tag for the Cypress is 
speculated to be in the 
neighborhood of $400.00. 

Attempts to get more detailed 
information on the internally named 
Cypress were fuddled as Myarc 's 
president, Lou Philips, is taking 
ho chances of releasing any 
information about the Cypress 
prematurely. However, reliable 

Sources have confirmed Myarc is 
presently searching for venture 
capital to mass produce the already 
designed Cypress. Further, the 
Cypress will -be "twice as 

powerful as the Texas Instruments' 
TI-99/8" which TI had designed and 
produced operational prototypes but 
^^ever marketed. Another, .unnamed 
source said, "Myarc does not wish 
to degrade the performance of their 
computer by naming it the TI-99/8." 

Once the venture capital required 
is obtained, you can look forward 
to a magazine dedicated to the 
performance o'f this computer that 
will be done through a publisher 
"larger than McGraw Hill", my 
source said. 

With new memberships on the decline 
in many User Groups, It will be 
interesting to see how User Groups, 
their leadership, and the members 
will take advantage of this 
opportunity and prepare for the 
new wave of computer users. 
Someone . wisely noted, 
"Opportunity seldom knocks twice." 
The Cypress may — just may be the 
second knock a lot of User Groups 
need I 

Whatever the outcome, we have you 
in our prayers Myarc, for the birth 
of the Cypress, or whatever the 
market name will be, will come at a 
time when it is sorely needed for 
many User Groups. 

Bill Barnes 



This article comes -from the May, r?S5 issue o-f The 9?-'er, Newsletter oi 
the Greatpr Orlando Users Group, o-f Maitland, PL. 
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Console, monitor or TV, disk system, 
expansion memory, one of the following: 
(Extended Basic, Mini-Memory, 

Editor/Assembler, Tl-Writer, Corcomp or 

*Myarc disk controller card (in short an 
assembly object code loader)), joystick 

.(optional). Super Sketch (optional), 
mouse (optional), track ball (optional). 

PERFORMANCE 

TI-ARTIBT has to be the best all around 
graphics program on the market. Even 
though GRAPHX, Master Painter 99, Draw 
and Plot, and Super Sketch each offer 
certain unique features, TI-Artist 
offers the best features in a single 
package. 

It is an extremely easy program to use 
and is completely menu driven from a 
picture title screen. Simply move your 
cursor to the picture of the desired 
action or press the corresponding letter 
on the keyboard and presto you are in 
that mode. Some of the unique features 
are: ' Continous Lines from 

point-to-point, Rays, Fills with user 
selected patterns. Frame, Box, Circle, 
Disc, perfectly horizontal or vertical 
lines, alphanumeric lettering in 81 
possiable sizes determined by user. 
Store _ or load from di^k, zoom the 
picture size 4X for detail drawing, 
Mirror your drawing in quadrants. Input 
your drawings using keyboard, joystick, 
Super Sketch, trackball, or a mouse, 
Multiple brush sizes/styles, index 
pictures previously saved on a disk, 
optional density, magnification, and 
line spacing printouts on EPSON 
compatiable (roost printers), Okidata, or 
Seikosha GP-lOa printers. One option 
which I particularly like is the ability 
to load drawings previously drawn with 
Draw A Bit, Draw A Bit II, Draw and 
Plot, and GRAPHX and convert them to 
drawings which may be used with 
TI-Artist. 

There are several features which could 
be easily added which I feel would 
enhance the program. First, on printing 
out the picture the user should be able 
to permanently re-define his printer 
specifications instead of entering them 



each time, abort the print out, and 
define shades of print densities 
corresponding to screen colors. Second, 
a provision for pre-drawn ICONS for the 
inclusion in drawings would have been 
nice. 

EASE OF USE 

From the moment I loaded the program I 
was able to begin drawing with minimal 
reference to the instructions. Even the 
inexperienced user should be able to 
quickly master all facets of the 
program. This program is also well 
suited for children as an introduction 
to drawing on the computer. 

VALUE 

TI-Artist at $19.95 has to be the best 
buy on the market. When one considers 
the effort required to write this 
tremedous program plus the cost of 
materials, postage, and handling it 
would be impossiable to find a better 
deal. 

FINAL GRADE 

TI-Artist certainly deserves the top 
grade. I found the program a j'oy to use 
and I am certain it will not become 
another useless program sitting on the 
shelf. The author of the program is 
Chris Faherty of INSCEBOT INC. 
Software. 

(Comment: This review by Mack McCormick 
was printed in the Penn Ohio 9/4A Home 
Computer Users Group Newsletter, May 
19B6. Version reviewed was not stated, 
The TI-Artist version I have is 2.8. 
Additional software packages for 
TI-ARTIST are: Artist Companion *1 , 
Artist Companion #2, Display Master, and 
Artist Extras. Use of Super Sketch pad 
and use of a mouse require special DBR 
routine on the Artist Extras disk. 
Wm. M. Lucid) 
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n N£H GRAPHICS CAPABILITIES AVAILABLE II 



Thanks ta two Coipussrve/TI Fcrui users, Trivss 
Ulhri and Pml Srj,', tne TI coB«unity is now iole to 
use RLE ifcn Lsnqth Encodea) Graphics. This leans that 
•anv hiqn rssalution pictures created for other :o«puters 
are now availaole to 99/4A 'jsers. The pictures on this 
33ge are exatples of RLE uaqes ivailacle m .arious 
"libriries* on Coipuserve. They were downloaded just 
like any other file and then run through a prograi 
written Sy Travis Hatford to take thea "usable' on the 
99/ 4A. 

•Run Length Encoding' is a standardized aethod of 
storing graphic iiages. Other cosputers have been able 
to use this type af files for quite soae ti«e, but until 
recently TI users had been left out. The files are 
called 'Run Length Encoded* because of the »anner in 
which the graphic isaqes are converted into a 
'standardized code*. A 'RLE' graphic screen has 256 
coluins and 192 rows (luckily, that is just the 
'disensions' of a 99/4A bit-aap lode screen). To 
convert a hiqh-res liaqe into an RLE file the encoding 
prograi begins at the upper left corner of the screen 
and deteriines if the first puel is 'on' or "off. For 
the sake of this 'explanation', let's assuie the first 
pixel 13 'on*. Then, the prograi would count across the 
top row of the screen until it reached the first pixel 
that was "off, and then it would begin counting now 
•any pixels in the row were 'off until it caie to the 
next pixel that was 'on'. This sequence is repealed 
until the entire iiaqe has been 'encoded*. (Each of the ' 
'nusoers* oDtained while the encoding takes place has 32 
afldsd to It to convert it into the hexidecual code for 
a "printable* ASCII character, and tne final RLE file is 
siiplv a collection ot these ASCI! characters.) To 
reconstruct tne iiaqe, the 'decoding' progras follows 
the reverse procedure. It begins at the upper left 
corner of the screen and then row after row turns 'on' 
or 'off groups ot pixels depending on the values in the 
RLE file. 

The prograi that allows 99/4A users to use RLE 
Pictures 15 called '.lax-RLE', and has Seen placed into 
the public doiain by the author. Uith it, we can load 
RLE files that have been previously downloaded (as 
either DV/80, 'ASCII' files or as 6f/i:8, 'Xiodei' 
files) into the coiputer and then 'lanipulate' thei in 
several ways. Me can save thei back to disk in a fori 
that can be used by 'Sraphx' or 'TI Artist", which 
allows us to '-olor' or change the pictures however we 
desire. OR we can print the laage out on a printer. 

If all that could be done was "decode" RLE files, 
this wQula be a great prograi, out "Hax-RLE" also allows 
the user to "encode" pictures drawn with either "Sraphx" 
or 'TI Artist' into RLE files. This leans that pictures 
drawn by 99/4A users can be seen ana used by owners of 
otrer kinds of coiputers that support RLE arapnics. (Ue 
lay be orpnans, but we're still an 'active' part of the 
hoie coiputer coiiunity! I') 

Currently there are over 300 sucn pictures in 
various libraries on Coipuserve. But tnose of /ou who 
don't subscribe to that service lay get i chance to 
"experience" RLE grapnics anyway. Now that we have the 
"I1ax-RL£" aronrai, we can keep this kind of pictures on 
sialler oullBtin boards also. Before long we jay be 
sending 'art' mth our text all over the country. 'Now, 
•J soieone Kould just :oie up with a 'cneap' »av for 
99. 4A users to 'diqitiie" photoqrapns ) 



■ I 

ran across an article that compareE 
MS-DOS to 4A DOS, using a CorComp Disk 
Controller. The comparison shows that 
the TI with all of its drawbacks has a 
pretty fair DOS. I know from my. own 
experience that it is much more stable 
than the CoCo II operating system. The 
comparison goes like this; 

System *-tracks #-sec/tk #-Bytes/sec. - 
CC 40 18 25S 

MS-DOS 40 S 512 

#-sidBS Total Storage 
2 368,640 
2 368,640 
The MS uses 512 bytes/sector compared 
to 256 for TI . For a closer look at 
just what this means, consider you save 
a program of 700 bytes on both . systems. 
System sec/used/f i le bytes/avai lair le 
CC 3 768- (3x256) 

MS-DOS 2 1024 (2x512) 

bytes/used/file bytes wasted 

700 68 

700 324 



So now, what do you think of our 
little orphan? This also explains why 
the IBM and compatibles can not read 4A 
disks and vice versa. ,.- 
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PRBASE VCTSIDM 2.0 bv Jot NuvoUnt 

(Front Ringer Aug. 86 : Front Range 9?er Coiputer Club Colorido Springs, P.O.Box 9S72,CQ 809321 
[Keyed In by Roger Ouintanilla 10-6&] 



Version 2.0 oi Hillaii Harren's PRBA5E is finally ready. The ne* version supports double sided operations and Mill hold 
710 records. Since the aijor changes are in the Create portion oi the progru, let's talk about that first. 

In ay original revieN I Mas t bit critical of this portion of the prograe, but Bill has ude the use of it auch siipler. 
Upon selKtion of this area you encouter a nnu Kith eight selKtions. 

Option one is Select Data Drive. Mith this option you can uke drive 1-5 your data drive. 

Option tMo alloMs you to forut a data disk as either single or double sided. 

Option three is your Design Data Screen. Tlii procedures to set up this screen are about the saac. Hhen done, you can 
print out the data screen nhich is helpful ahen it coaes tiae to design your labels and reports. At the end of this option you 
input the data disk naae and you output device, for ae PIO/1. take sure that you ent«r FCTN 3 [ERASE] before entering your 
printer device naae or enter spaces after your printer nate to the end of the printer device input field or you Kill encounter 
an output device error Hhen accessing you printer. 

The neit option is design Tabular Reports. Here's »here the iaproveaents are REALLY noticeable. You can design five 
reports and the good news is that if one doesn't coae out right on the first try you can go back and fix it aitout redoing the 
entire report. After you select the report nuaber you aant to design, you can select 80 or 132 coluan foraat, the nuaber of 
lines in the report, and the report title. Kext you enter in ASCII the control codes you aant, up to &. I used IS 27 78 10 to 
get the condensed print for ay 132 coluan report and skip over perfs so I can print the Hholc report at once and not have to 
print sections of it, so it doesn't print over the perfs. After the control codes you reach i screen titled Report Foraat 
Design. Here you can see the location and size of each field in the data screen. At the bottoa you enter the Log Device, 
again PIO/1 for ae, and can print this screen if you aish. The next screen, titled Design Tabular Report, is ahere you 
actually design the report. The first 16 fields are autoaatically here ahen you arrive and you aust aove thea around, delete 
soac and add others. You aust enter the screen location, nuaber of characters, report line, and coluan position for each itta 
in the report. When done you can also print this screen. Khen you are satisfied aith the layout you press FCTN 6, [PROCEED], 
and the data fields are initialized. Hhen this is done you «ill see the nuaber of lines used and the nuaber of lines desired. 
Press enter and you reach a screen titled Enter Coluan Header. It shovs the starting position of each field in the report aith 
a caret [*] so you know ahere to place your headings. A caution here, as you only have 84 characters [12 sets of 71 available. 
Use abbreviations ahen necessary, to conserve characters. Nhen you finish labeling your headings press enter and your report 
foraat is saved on your data disk. To change it just go through the process again and eake your desired changes on the design 
screen. NOTE- if you change' any of the heading titles you aust replace ALL the carets ahich reappear aith the letter that 
belongs there. So auch for option 4. 

Nuaber 5 alloas you to design your uiling labels. It is quite siailar to the report option but shorter. Here you choose 
the nuaber of lines and set the locations for the data. Then the data fields are initialized and the foraat is saved. Again 
you can go back and change it later if you like. 

Option 6 is used to set printer control codes. You can set five sets of control codes for your printer up to six ASCII 
characters long. You select a nuaber betacen 1 and S, enter the text for the code, e.g., condensed print, and then enter the 
code, for the IS. You then have the option of saving it to disk. These are accessed through the C coaaand in the data 
aanageaent part of the prograa. 

. .1 A* P""*"" "»«• " "ded disk, and set the 

left and right tabs for tao-across labels. A zero for the right tab aill print single labels. The saae caution about enterino 
your printer naae applies here that aas aentioned in option 3. 

Finally, option 8 is exit and that should need no further explanation. 

There are only a fea changes on the aanagtaent side of the prograa. The first is that if you can't reataber the naM of 
your data disk, you can enter DSKx?, x being the drive your data disk is in, and it aill read the data reqirdless of the disk 
naae. If you enter N froa the aenu for record nuaber, the highest record nuaber aill apear as a default value. Mien Editing 
you no longer have to keep pressing enter to get the cursor through the entire screen, ttien you are done editing just enter 
FCTN 6 [PROCEED], and the edited record aill be saved to disk. You noa can print reports in 80 or 132 coluans. Nailing labels 
can be printed one across or tao across, and C on the aenu noa lets you select the control codes for your printer. So, if you 
aant to print a report in condensed print and it noraally does not, you can do it by selecting condensed print here. You have 
the five selections you set up earlier or you can enter one aanually here. 



There is also a selective search now, Hhich you can select by entering Y at the prospt in the Options area nhere you can 
index by nue, for exaiple, and a string in another field, let's say 80917 under a zip code field. After indexing and sorting 
you can print out alphabetically all the people Mho have zip code 80917. The rest of the aanageant portion is about the saM 
as in the original version. 

I eight aention that there is nan a set of PSBASE UTILITIES. They were witten by John A. Johnson, and are excellent. 
They contain a aenu aith the folloaing options: Copy Database Header [sectors 1-9], Copy a Group of Records, Copy a Single 
Record, Search suid Select Records, Sort and Rearite to Copy, Configure Drives, and Exit Progru. Host of these are 
self-explanatory and all are covered in the DOC's that coae aith the prograa. These utilities and their DOCS are noa included 
on the disk aith PRBASE. 

Bill has really outdone hiaself this tiae. I aould have to upgrade ay report card lark for ease of operation to an A, and 
ay final grade to At. Bill has sent out postcards announcing the availability of version 2.0 to all registered oaners. You. 
aust send hia 720 sectors of initialized disk space, and a staaped return aailer. Bill aill supply the aailer and postage for 
$1.00 or he aill supply everything for $5.00. If you are not a registered oaner then send the disks and 110.00. Bill's 
address is 2373 Ironton St, Surora, CO 80010. Men you rKieve his card announcing the availability of the nca update, be the 
first on you block to get one. It's the BEST! 



EXIENDED_B6SlC_QUlRKSi by Ed York; Cin-Day User Group o-f Cincinatti, Ohio 

Many o-f you who have Extended BASIC may not know that you can load a program -from cassette and 
then execute or RUN it automatically by typing in "RUN CSl". This is known as an undocumented 
command. Nc>ia), doesn't that kill two birds with one stone? Also many o-f you have been trying 
to make the computer speak phrases using Extended BASIC and the Speech Synthesizer but are 
disappointed with the results! Well again it is not documented that you need the fl s>'mbol 
before and a-fter phrases that are listed (see the List O-f Speech Words located in Appendix L 
oi the Extended BASIC Manual). Phrases such as "WHAT WAS THAT", "READY TO START" and "THAT IS 
RIGHT"- must be entered as CALL SAY-:" «W HAT l-JAS THATtt"), CALL SAY<"«READY TO STARTS") and CALL 
SAY("HTHAT IS RIGHTH") in order to hear the computer speak them correctly. 



WORDSEARCH # 6 



This WORDSEARCH contains 
names of 20 99/4A aames. 



the 



WORD LIST 



PARSEC 

HOPPER 

yAHTZEE 

MUNCHMAN 

SLYMOIDS 

STARTREK 

SNEGGITT 

MOONMINE 

CARWARS 

OTHELLO 



SUPERDEMONATTACK 

BURGERTIME 

VIDEOCHESS 

CHISOLMTRAIL 

TOMBSTONECITY 

TUNNELSOFDOOM 

ADVENTURE 

ALPINER 

HUSTLE 

TI INVADERS 



MYYUBGUMKCSL0HY6 i YA JNAYAUMEX I DNQ 
6MMXI EYI JBXZ JPSTSTYMYBKAMFAGQOJUI 
LOYORHXBONSOTHAZN I KHNAUPNUPZ CD I C 
60KPFDSLYM0I DSNRI I OJMKXKMZHGRFUF 
YNMCMUOGUIFBOCUGKWNGFQABSOSLRJHBW 
JMUPLKUQGUOIRLUED'v'ZZOSGTUIXDNXRBJ 
J I MAWSRBRH I UGVPKAAFCGWZNHZNWM JAE 
NNMDUGQGQJTATPGKHDKHfiOJUlAlUFNGUMB 
PEDUOMERWMD I OQBGSED I UUC JGCSROBOU 
YTUNTRGChWJBYEXUHROSMTNDFDNTHGQF 
LMI DTGI UEGJAUPPTGSSOCZNCYYI QLAUlO 
T I H IJ D QN OU.I H E D E 6X QT F L DA SM HTI.....1 Al-J E Z P 
USMAH I TUATRURKYSKGSMOYRQSMSHBCFY 
NERFWULOZTXDDCM I JHHTFJSUHaJTAOTETO 
N J E U R P A E G Y ET H B J S SN G R E SXN A QMNW U K I 
EEFEDUEYXMQYLFMNDZYAHLERERLOMFGA 
LLKRAACGOBTUXDMBWQ I MOTLQGSBAT JK 
S KN F K ON K H I CN B U K E B P L G R P F' R G A L H U C 
OMUBYEABUQD I OQGZ ADPXEFYPKEP I WTEX 
FOWDDTUSSEHCOED I 'v'CKKTQFEEOEUTAAG 
DAUWT A K A S L F P K E E Q CTX P QUUl F E RWN YT K 
OFBARTHUWDHGOZ PYABTYHSKBOH I Z KRZ P 
ONCOLLEHTOPARSECTOMBSTONECITYKYD 
M K YX HT G! L A F Q P B F Y RT Z A D LT R A Z GN E R Y R 
FP I YENALP I NERTU I GCMXZ AF I MZ GLWFY J 
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AUXILLARY POWER SUPPLY FOR DISK DRIVES by William M. Lucid 



This is a presentation of a power supply, that I have been using over & 
year vdith no problem, and it is still on-line. Before I begin, this 
presentation deals with modifications to the TEXAS INSTRUMENTS 
EXPANSION SYSTEM, also known as the P-Box , and could void warranty 
and/or exchange rights. 

Developing an aux. power supply I had the following goals: (1.) 
Provide power for up to three additional drives, (2.) Eliminate turning 
on an additional power switch, and <3.> Mount the aux. power supply 
inside the P-Box. 

Fairchild voltage regulators 78He5 and 781-112 were selected because they 
are capable of delivering five amps and offer excellent ripple 
rejection. Before begin ing my project I studied the inside, physical 
layout of the P-Box side that contains the main P-Box power supply. 
Anything mounted in this area needs to avoid physical contact with: 
<!.) P-Box power supply printed circuit board, <2.) A.C. line filter, 
<3.) P-Box transformer, <4.) W'entalation fan, and (5.) P-Box power 
switch and its mounting bracket. Anything mounted inside the P-Box 
must allow the reassembly of the P-Box "chassis cover to the P-Box 
chassis. 

Using an A.C. voltmeter I located a "switched source" of 119 A.C. 
volts that allows the aux. power supply to be off when the P-Box is 
off, and- on when the P-Box is on. This source for me turned out to , be 
the top two "quick connectors" on back of the P-Box power switch. 

Mounting of the aux. power supply was accomplished by designing a 
printed circuit board. Uol tage regulators, heatsinks, full -wave bridge 
rectifier, filtering capacitors and a few other components are mount&d 
on the printed circuit board. Space inside the P-Box is very limited! 
I found this to be a limiting factor as to the physical size of the 
aux. power supply transformer. The transformer I used was rated at 
eighteen volts, three amps. Aux. power supply printed circuit board 
end with the heatsinks is mounted about one inch from the ventilation 
fan and is mounted flush against the upper left side of the "chasins 
cover" using one inch spacers between aux. printed circuit board und 
"chassis cover". This mounting places the heat sinks directly in the 
air flow. 

All voltages were verified with and without loads using a voltmeter and 
a osc i 1 1 i scope , before hooking the aux. power supply up to a dtsk 
drive. This aux. power supply should work with other disk drives 
requiring plus five volts and plus twelve volts. I am using a pair of 
QUME 142 disk drives mounted internally in the P-Box. 

Looking back, I feel if I was just starting this project I would build 
the aux. power supply in its own enclosure. A "Cinch" connector could 
be used on the back of the P-Box, then come off the . "Cinch" connector 
inside with the standard disk drive power connector. 




i>RTS LIST FOR AUXILLIARY PLUS FIVE AND PLUS TWELVE POWER SUPPLY 
oy Ui' 1 1 iam M. Lucid 



VRl FAIRCHID 78H85 Voltage Regulator 

VR2 FAIRCHILD 78H12 Voltage Regulator 

D1-D4 « FULL-WAVE BRIDGE (Rectifer diodes 488 PIV, 3 Amps) 
D5,D^ IN4882 Diode 

CI 4,788 UF, 58wwdc, Radial lead, Electrolytic capacitor 

C2,C3 .33 UF, 58 vwdc , capacitor 

C4,C5 .1 UF, Sevwdc, Tantulum, capacitor 

C6,C7 478 UF, SBvwdc, Radial lead, Electrolytic capacitor 

Tl » Trans-former 128 volt primary, 18 volt secondary, rated at 3 Amps 

Fl « Fuseholder and -fuse, -fuse rated 3 Amps 

H1,H2 « Heatsinks -for single TO-3 case with one inch fins 

LC Linecbrd with plug 

SI Switch, single pole, single throw 



Comments: Vdc IN needs to be 15.5 to 25 volts at 78H85 and 78H12 

« Items need to be changed to get -full -five amps i-f needed. 
Mount C2, C4, D5 close to VRl 
Mount C3, C5, 06 close to VR2 

Printed circuit board mentioned in this presentation was produced using the 
photo negative method, I produced the orginial artworl<, exposed the board, 
etched, and assembled the whol e . assembl y . 



There are POTENTIALLY dangerous voltages involved, along with HEAVY CURRENT, 
CAUTION must be observed. This is not intended as a beginers do-i t-your-sel f 
type project. 

Printed on a PROWRITER 851 8A set to bold command, text prepared using 
Tl-Wr i ter/Word Processor. 




MORE FOR YOUR HONET 

by Jim Ell is 

First, let me say that this project is 
not -for the inexperienced. H you don't 
have the tools or experience or just not 
sure you want to tackle it, I'm sure you 
can -find someone with the sl< i 1 1 to do it 
■for you at a nominal -fee. You can have 
your own cartridge expander or how to 
make some modules serve double purpose. 
I recently got tired o-f swapping my E/A 
and Tl-writer modules. Even tho' I had 
an expander, I needed to use one more 
cartridge than it allowed, so I came up 
with this little modification. I moved 
my TI -writer GROM into the Editor Assem- 
bler module, cut a -few lands, added a 
s.p.s.t. switch and eureka I had it. 
These boards are laid out with all pins 
connected together, i. e. pin 1 to pin 
1, etc. So you have to cut open the chip 
select line (pin 14-),~salder a wire to 
each pin 14 that you are using, <in my 
case two), run the wires to a switch, 
run a wire -from the common terminal o-f 
the switch to the reset resistor on the 
card and its done, 
goes to the reset 
must add a jumper 



Pin 14 originally 



res I sTor , 
•from the 



Also, you 
reset resis- 



5V) 



see 
cuts 



tor to pin 29 
need to make (n+1) 
connecting pins 14 together, 
chips require 3 cuts. Oh, 



■f i gure . 
on the 
E.g. 
yes, 



You 
1 i ne 
two 
the 

switch is Radio Shack 275-407, which 
comes two in a pkg., priced 3 79 cents. 
H you have any quest i ons. 1 eave mail in 
box 12 on the HUGbbs or call me at 831- 
5791. H you read diagrams, I included 
a simple schematic. 



Edge 
1 - 



Pin 



brn 



RESET 

reset 
resi stor 



C. Pin 
-Ul-14 



\ 
/ 
\ 
/ 
\ 



29 



wht 



■5y 



SI » 



U2-14 

red 

With the addition o-f two more switches 
it could be made to switch -four di-f-f- 
erent programs. Since there are -five 
openings on the board, you could have 
two —one GROi'1 and one— three GROM pro- 
grams all in one module. How about 
that? TI -fans! ! Later 




This article was reprinted fron the August, 1985 issue the New Hampshire 
99'er5 Users Group Newsletter of Manchester, New Hampshire. 



MPI 




ADDING A SECOND TI DRIVE... 
(a.k.a. n WORKS FOR US!) 

Helene n. Lafonville k Ellen J. 
121 Caaelot Drive - Bedford, m 
NH 99'ERS USER GROUP 



Rule 
133102 




SHUGART 



SEARS (Kanchestert 
internal disic drives 



m) is currently closing out on their TI99/AA inventory. At this nn-iting they had over 29 
(PHP 1250) resaining at $53 each. They have both the SHUGART 4flflL's and MPI 51 S' in stock. 
He wanted a second drive BADLY! Since the cheapest, new, TI external drives were $135, and our funds were liaited, 
ue decided to 'fashion' our am. 

Armed with copies of five different articles on the subject, ue abstracted 'the best* and "the easiest' advise. 
You will need the following parts: 



The bare disk drive $50.08 

An enclosure (vertical nounting) & pcwer supply..... - $42.00 

(One of our oeabers sells power supplies for $15, 

and we found an enclosure at a flea aarket for next to nothing. ) 

A 15* drive cable with two 34-pin edge card connectors.... $6. ffl (we had one) 

A 4 position DIP SHITO( (RSt 275-1334A)....$1.6a 

A replaceaent resistor pidt*,...flSE fna TI 



TWO DRIVE 






(MfflHJRATION 


INTERNAL 


EXTERNAL 


#1.» 


SHUGART 


SHUGART 


*2. 


NPI 


SWJGART 


#3. 


HPI 


HPI 



*Cn Kiltiple drive set-ups, acxi oust replace the teraination resistor pack on all SHUGART drives except the last 
drive in the series. If the SHUGART is to be used with other TI drives (MPI's), install the SHUGART as the last 
drive in the series. A call to TI-CARES will get you a FREE replaceaent resistor pack (a 270 oha resistor soldered 
onto pins 5 and 10 of a 14-pin DIP header). You uy choose to just add a 27B oha resistor between those two pins in 
the DIP socket itself. Our drives cost US less than $75 to asseafale. 

Only configuation II requires the replacawit . resistor pack. The INTEJ^WL drives in ccnfigurations 52 «nd S3 
DO f~T rc<5iirs ssdificstios. Sines » opted for CEsfi^jratisn #1 (for aesthetic reasons), ee had to replace the 
teraination resistor pack on the internal drive. Because drive 1 gets sMSst of the workout we also decided to use 
our newest drive as drive #1. In any event, if you opt for dual drive configuration #1, you laust replace the 
teraination resistor pack with a 270 oha resistor pack: 

>Turn off the Peripheral Expansion Systea and disconnect the power cord froa the back of the 
unit. CAUTION - WAIT TWO MINUTES AFTER TUFTING OF WE WIT FOR POlO TO DISCHARQE BEFOJE 
PROCEEDING. 

>Reaave the top of the PE^ by depressing the latches on the back edge of the top and pulling up. 

>Re90ve the four screws holding the internal drive in place and gently slide the unit out of the 
ccapartsent. You need not disconnect the cables that attach the unit to the PES and controller card 
unless you decide to replace the drive with the newer one. 

>LflcatB the teraination resistor pack, noting the position of pin 1 in relation to the drive. 
Using a very saall packetknife blade or a small screwdriver tip, CAREFU1.Y pry the resistor up and 
out of the DIP socket. Take care not to bend the pins in case you need to use- the resistor pack 
later. 

>Insert the new resistor pack with pin 1 (the nuaber '1' is either raided in or represented by a 
notch) occupying the sane position that pin 1 of the teraination pack occupied. 

>Reinstall the disk drive, expansion systea top, and power cord in the reverse orcter of the 
procedures above. 



Because uany of you Bay not have received the special cables or an adaptor board aith ycur TI disk controller 
card, lost thea, or have a CorCcap Card, we have adopted John Haailton & Ron Rutledge's (Cantral Iowa U6) method for 
adding a second drive... replacing the shunt pack with a DIP SJITCH, thus dispensing with the need for specal 
cabling and adaptor boards. The shunt pack is a aorkhorse. It controls the follcsing: 

Pins 1-14 ... Head Select - head is loaded by drive select signal 

Pins 2-13 ... Drive Select I - selects drive as #1 

Pins 3-12 ... Drive Select 2 - selects drive as #2 

Pins 4-11 ... Drive Select 3 - selects drive as »3 

Pins 5-10 ... Multiplex - aeans aultiple drive configuration 

Pins 6- 9 ... Door Lock - means drive in use when door is closed 

Pins 7-8 ... Head ^k)tor - head is loaded by aotor signal 




The TI drives all come as Drive »1. The adaptor boards and 'special cables' are "configured" to side-step the 
shunt pack and select the proper drive in i»uitx-drive set-ups. flany of our ineiiibers have encountered probleas with 
the TI Kthod. The Haailton-Rutledge method has worked for us since day one (over two aonths). • I even used this 
Mtbod to configure a TI SHU6ART Drive to ay RS Color Coaputer, and it is working great! 

For the external drive theni we recoaunend that you first remove the thin aluainua housing that covers the 
drive. This allows for sore airflow to occur, next: 

>Fasten the disk drive to the enclosure floor. 

>Attach the 4-pin polarized plug froo the power supply to the 4 pins on the drive's board, then 
attach the grounding wire froa the ps to the rear of the drive. CAREFWIY replace the shunt pack 
with the DIP SWITCH. As this is your second drive, position »1 should be ON, »2 should be OFF, #3 
ON, and 14 should be OFF. 

>Attach one end of the drive cable to the edge card on the drive (note that there is a 'key* in the 
connector which Mtes with the 'hole* in the edge card). Connect the other end DIRECTLY to the disk 
controller card. 

>NoH secure the enclosure cover in place. 

>Test the drives by cataloging a disk on each of then. 

We Mist acknowledge the following people who have provided us with the basis for this article: Ed Lawson and 
Richard Bailey of the N Hasp. 99'ER US, John Haailton and Ron Rutledge of the Central Iowa U6, and John Worthington 
of HANNERS. 
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KEYBOARD KLINIC 



by Bill Jones <o-f Indx) 



HOU TO BUILD YOUR OWN. 



TI-99/4A JOYSTICK ADAPTER 

by Gary Coo-" 
From Compute!, August 1983 

The -following article was included in the 
September, 1993 HUGger Newsletter. 

As an oi,gner o-f a T1-99/4A, ] decided 1 
wanted a joystick to go with it. To save time 
and money, 1 got the Atari pin con-figuration 
•from a -friend and TI's configuration -from the 
Tl toll-free in-formation line. A-fter that it 
was a simple matter o-f buying three nine-pin 
"D" connectors < two male and one -female), a 
small box, and some wire. Following this 
wiring diagram, you can make this adapter in 
about an hour and be able to select any 
joystick -from the wide variety o-f 
Atar i -compat 1 bl e joysticks sold. 



A -few nights ago I was programming 
away and discovered I had lost the 
key. 

Step one was to pull the key cap and 
clean the contact. No luck. I pulled 
o-f-f the bottom o-f the computer and -found 
the problem. 

Most o-f the keyboards I've seen on 
TI's are made on a paper phenolic PC 
board that absorbs humidity -from the air. 
That makes it swell and shrink, 
eventually, the solder Joints, crack and 
the key stop working. I checked my other 
computer and -found it also had some 
cracks starting. Both o-f them are over 
two years old. One I use daily, and the 
other I keep as a spare. This problem is 
caused by time not by use. 



TI 

CONSOLE PIN OUT 



1 N.C.- 

2 STICK B 
GND 

3 UP 

4 FIRE 
BUTTON, 

5 LEFT 

6 N.C 

7 STICK A 
GND 

8 DOWN 

9 RIGHT 



ATARI / COMMODORE JOYSTICK 

1 UP 
DOWN 
LEFT " 




RIGHT i 

5 N.C. i 

6 FIRE ; 
BUTTON ( 

7 N.C. 

* — 8 GROUND 
9 N.C. 



/I UP 
,7^2 DOWN 
,rV3 l^EFT < 
.-r04 RIGHT 

O 



5 N.C. 

6 FIRE 



BU1TONi>r 

7 N.C. " 

8 GROUND 

9 N.C. 



I 



ANOTHER USE OF THE LOAD INTERRUPT SWITCH 
by Gary Brown 
in the J%U»6»S Newsletter 

Assemble this source code 



AORG >FFFC 

DATA >Aeee,BeBE end 

Load SBUG 

Load the interrupt program you have 

assembled above. 

Press Function =<Quit) 

Do not turn console or P-Box o-f-f 

Insert a cartridge and start it running. 

Press the interrupt switch and you will 

have the SBUG title screen 



Follow the instructions and go into 
addresses 6898 thru 8888 find the program 
in these addresses. Then you can 
disasemble these addresses. 



Remember no one assumes any liability for 
your computer should you try any console 
modi f i cat i ons. 



i 
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♦ 5 Volts i 




fill resistances sreater 
Uan le, eM oKns. 
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PLATED- 




ADDED 
PARTS 
SCHEMATIC 



CONN 



BOTTnM VIEW OF SPEECH 
SYNTHESIZER BOARD 



my own synthesizer so I 



ADDING A LOAD INTERRUPT SWITCH 
TO THE SPEECH SYNTHESIZER 
Richard J, Bailey 
6aA Church Street 
GonicNo H. 03867 
NH99'ERS USER GROUP 
ah«oi^'"£H'' R^ople have asked me 
haS LJ=H 1°^^^ interrupt switch I 
had _ added to my speech synthesize 
fC« ^- dumping screens -from 

the varaous cartridges using the 
w^^®iif?J scfeendunip program^that 
was written by Danny Richaels. So 
here are instructions to allow 
you to modify you own synthesizer 
to accomplish this. 
Keep in mind that you have to 
'2^^ enough about electronics to 
3- ^ . . P^'^'ts needed for the 
modification without messing up 

kXSI:l''*.K^I?^^f^^ = ^''; ^ ^^^^s made'^the 
know that it works, but if you 



modification to 

rnIide"?Ae cSnsol ran5%a;e\ SmlYl ''Iwfj^r-V- ^S'^ add" the same parts 

v-ant the modifiSition self^Sntafied Sr 5^0^^'^^^^"^ ^^'^^ if yoG 

The only part really nSSded fS ^ ^^""^ ^ speech synthesizer! 

normally open contaSts but if ySu add 5 Pushbutton switch with 

with the- switch anri a ai- I'^Scn ? 100-O00 ohm resistor in series 
be less chance fSr^2on?acrSoin2e (I?'';Si^ro.f?C°^ switch, therrwill 

closure, use cross-coupled glfes as^an 5-1 if^I^I^S? bounce-free contact 
schematic and 1 ocati on di aqram^Sf thS soC^^h ^^iiS""^ • °P ^ • Sidded parts 

^bove. These were drawn with GRAPHX ^^^^^^ synthesizer board is shown 

To modify your unit, do the following: 

^ '^^^ switch mus£ not stick >l/4in. beyond threads 

^jdismantle synthesizer. note how shield slides together 
o clear large pi ated-throuqh hole of solder. ^oge^ner. 

T^f?®^^.K piece ol wire to pin 13 of 44 pin connector. 

-JoJL^^^^'' P^C^^x^?^?," ^°P si'^'e °^ circuit board) 
A fSJnf^ ?"?/^'?^ ^^"^ resistor in ground hole. 

7 I^iSfC l.l/2in. piece of wire to other end of resistor. 
7 solder wires to switch and .1 MFD capacitor. 
S)drill hole in middle top of shield for switch. 
VJmount switch, making sure everything fits. 
10)reassemble unit, making sure nothing shorts. 

switch. It you do, please pass them on to the newsletter. 
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ELIMINATING BACKGROUND NOISE WITH THE R.^. MODULATOR 



(Editor's Note: The -fonowing article is printed in the HUGgers Newsl etter through the 
courtesy o-f the Indianapolis TI Exchange Center. 

When experiencing background noise, such as humming or buzzing, wht the R. F. 
Modulator, internal adjustment in the Modulator will usually alleviate the" problem. This 
can be accomplished by the user by -following the steps below and re-ferencing the 
illustration below. This procedure is to be done while all equipment is on and operating. 
H you have the old version o-f the TI900 Video Modulator, this procedure does not apply. 

(Materials required: one small, -flat, thin-bladed screwdriver) 

To correct the noise dif-ficulty: 

1) Turn the volume o-f the television all the way down, but do NOT turn it o-f-f 

2) Select the Master Title Screen on the computer <FCTN =, i-f necessary) 



10 Television 

Conn ecTors 



hodulaior 
Comparfm&nt 



/on 



Pr f^cf, 



.apac 
Gomp. 



□ 



> 




/ Console 




3) Using the title screen color grid, -fine tune the 
television to the best color picture 

4) With the screwdriver, pry o-f-f the lid o-f the 
Modulator box by 1 i -ft ing under one edge o-f the lid 
near the indentation holding it on 

5) Li-ft o-f-f the lid and turn the television volume 
up to half <50'O 

6) Insert the blade o-f the screwdriver into the 
slot o-f the small box labelled CVl (see -fig.) and 
turn it slightly until the background noise is at a 
minimum (should take less than l/8th o-f a turn) 

7) A-fter bending the Modulator lid edge back into 
place, put it back over the Modulator box and press 
it -firmly into place until it snaps. 

The system is now ready -for optimum usage. 



Inseri 
Screudriv e.r 
Blade. a^d 

Turn gent/y 

more then 
Vstk iurn) 



\0(o 



Does your TV Set/Monitop have a terminal case o-f wavy lines moving across the screen? Quite 
by accident, the Set Up Committee o-f the Hoosier Users Group has -found a cure! 

CDue to large meeting and class attendance, we have to set up several monitors so everybody 
Id see what was being displayed on the screen. A Radio Shack 4-Way Distribution Amplifier 
was the answer. This Ampli-fier allowed us to set up -four TV's to the group's TI system, ^ine. 
But what we didn't realize, it also el iminated the wavy lines on ALL monitors that happened to 
be set up ! . 

^ For those who want to hook this type oi Amplifier to your Tl , you would need the -following 
parts: 

Distribution Ampi if ier (Cat. H 15-1119) *12.95 

VCR/TV Matching Transformer (Cat. « 15-1253) 2.99 

75 Ohm Coaxial Cable with Male "F" 

Connectors at each end. Priced -from *2.49 to 5.99 
TV-Matching Transformer (a Non-Radio Shack part) 

And you said you can't get rid of your wavy lines? Now, for under *25.00 and less 

than 5 minutes set up time, you can too!!!!! 
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PIN 

2 
4 

g 
S 

10 
12 
14 
16 
18 
20 
22 
24 
26 
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10 
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34 
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00 
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CNO (SYSTEM) 
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A12 
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A9 
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A6 
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A4 
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RON 6 

CM) (SYSTEN) 



PIN 

1 

3 

S 

7 

9 

11 

13 

IS 

17 

19 

21 

23 

2S 

27 

29 

31 

33 

3S 
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41 
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RESET 
AS 
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AIS 

WO 
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AO 

CRU IN 
04 

00 
02 
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•S VOLT 
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SBE (SPEECH SELECT) 
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EIT INT 
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8 


All 


10 
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RCAOV/HOLO 


14 
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16 
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18 
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20 
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22 
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24 
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WE 


28 


ME 


30 
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32 
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07 
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06 
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40 


01 
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m PORT PM ASStCNMtNn 
VtOlO JACK 




OEiCnPTION 

«ll WOlT fUPPLY fON EXTtHNAl 
UNnS SUCH AS HOOUIATOR 

S4l[L0IHe CONNECTION 

SOUNO OUTPUT 

coMPOsnf vioco outruT 

CROmO CONNECTION 



IN 



I/O WT PIN ASSI6WENTS 
REHOTE WIREO HAIlOMOLO CONTROLS 1/0 PORT 



HALE PLUS FRONT VIEW 



DESCRIPTION 
NOT CONNECTED 
XTSTICK 8 
KEY(0 (UP) 
UY 4 (PUSH RurroN) 
KEY 3 (LEFT) 
HOT COKNECTEO 
JOYSTICK A 
KEY I (DOWN) 
tit 2 (RIOHT) 



UO PIN ASSIGNMENT 
POWER RECtPTAClC (USA) 




UO PORT PM AStCNUCHTS 
CASSETTE UO PORT 



0,0,0,6,6 
o o o o 
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NOT USED 
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COMMON 
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OESCRIPTION 

CSI MOTOR CONYROL VOSI 
CSI HOYOR CONYROL INECI 
CNO ISYSYEMI 
SOUND OUT 

RECORD OUYPUY 

CSI MOYOR eONTROl IPOSI 

CSI HOYOR CONTROL MEM 

AUDIO IN 

AUDIO GROUND 
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«CIUG:0485 CARTRIDGE CLEANING - by Ron Rut ledge PAGE 5* 
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Dirty contcts can screw-up any electrical device and the 4A is not an 
exception. The only place you are fairly likely to run into this problem is 
in using command modules. Both the module contacts and the port itsel-f can 
become dirty but cleaning the port itself is a big job as you have to dis- 
assemble the console. The good news is that cleaning the cartridge will 
almost always suffice and can be done quickly without any special tools or 
cleaners. All you need is a regular screwdriver, some sort of rag, a 
standard pencil eraser, and in some cases a medium phi Hips screwdriver. 

Remove the screw from "C" if there is one. Then pry the clips in slots 
"A" and "B" outward to pop open the cartridge. If there is a clip in "C" 
pry it back after "A" and "B" are loose. If it should bend off don't worry, 
it won't affect the performance of your module. 

The module board can now be removed. Do this carefully and note how 
the spring-loaded "door" is assembled if there is one so that you can put it 
back together if it pops out. Once you have the board removed take your rag 
(a kleenex will work but something cloth is much better) and rub off any 
residue from the contacts, shown as "D". Remember to do the contacts on 
both sides if that particular module has them. Once the worst is removed 
take any soft rubber eraser and "erase" the contacts until they become dry, 
clean and shiny. You need to do only about the outer half of the contacts 
as that is more than ever gets used (you can see the scratch marks in the 
picture below). Once this is done simply put the cartridge back together 
and go. Some symptoms of dirty contacts are the console locking-up, strange 
errors where no occured before, etc (my XB cartridge giving ras a syntax 
error when there was non for example). Don't jump to clean a cartridge on 
your first error, it could be alot of things like static, not having the 
module in tight, or a number of other things. But if you find you have a 
continuing problem cleaning the contacts is quick and free and may correct 
what was wrong. 
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I'm sorry, but it seems no one 
actually worked this wordsearch, 

WORDSEARCH # 7 
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RUN 

PRINTER 

MODULE 

ERROR 

SPRITE 
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CHARACTERS 

SUBPROGRAM 

DISK 
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JOYSTICK 

SAVE 

PROGRAM 

BASIC 

MEMORY 

COMMAND 

CASSETTE 
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LOAD 
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HOOSIER USERS GROUP 

P.O. Box 2222 

Indianapolis, IN ■4B20B-2222 

Forwarding and Address 
Correction Requested 



WORDSEARCH # 7 

This WORDSEARCH contains 20 
COMPUTER RELATED termss . 

WORD LIST 

COMPUTER MONITOR 

RUN JOYSTICK 

PRINTER SAVE 

MODULE PROGRAM 

ERROR BASIC 

SPRITE MEMORY 

SPEECH COMMAND 

CHARACTERS CASSETTE 

SUBPROGRAM STRINGS 

DISK LOAD 
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POCKET PROGRAM 

ere i =. a short Basic Program to help you calculate payments for simple intere^^t 1 
100 REM PROJECTED MONTHLY PAYMENT 
no CALL CLEAR 

120 INPUT "AMOUNT TO BE BORROWED " :A 
130 INPUT "NUMBER OF MONTHLY PAYMENTS " -.N 
140 INPUT "INTEREST RATE PER YEAR m.my. ":I 
150 1=1/1200 

160 P=A*(I/<1-<1 + I)">-N)) 
170 P=1NT<:P«100+ .5)/100 
180 PRINT P 



100 ! THIS PROGRAM WILL PRINT A 131 COLUMN LINE WITH THE PROWRITER. 

110 OPEN ttl:"PIO.CR" ! STOPS THE 99/4A FROM GIUING A CARRAGE RETURN AFTER 80. CHA 

RACTERS ■ . 

120 OPEN «2:"PI0" ! OPENS A PRINTER CHANEL WITH CARRAGE RETURN AND LINE FEED 
130 PRINT ttl :CHR$(27) ;CHR*<81 ) ! SETS PRINTER IN COMPRESSED TYPESTYLE < 1 7 CPI INC 
H) . 

140 FOR 1=1 TO 3 ! LOOPS 3 TIMES THROUGH PRINT COMMAND 

150 A*=" 00000000001 1 111111 1 1 2222222222333333333344444444445555555555666666666677 
7777777788S8S88S889?9999'?9?90000000000 1 11 1 1 1 1 1 1 1 22222222223" 
160 PRINT #1 :A* 

170 PRINT M2:! PRINTS A CARRAGE RETURN AND LINE FEED ONLY 
180 NEXT I 

190 REM by bi 1 1 FY I 

00000000001 U 1 11 1 11 1 22222222223333333333'144444444455555555556(54<$4<56<S(567777777777388888888899999999990000000000 1 111111111 22222222223 
00000000001 1 1 1 1 1 1 1 1 12222222222333333333344444444445555555555^44^66666477777777778888888888999999999900000000001 1 111111 1 122222222223 
000000000011 11111111 222222222233333333334444444444555555555544666666647777777777888888888899999999990000000000 1 1 1 1 1 11 1 1 1 22222222223 



APPLICATION FOR MEMBERSHIP 



Below ^ you will find an application for 
membership to the Hoosier Users Group. Active 
membership entitles you to the Newsletter, up 
and download on the HUGbbs, attendance and 
voting rights at regular club meetings, access to 
Uie HUGger Library of Programs, special club 
activities and special guest speakers for one year. 
Subscribing members will receive the 
NEWSLETTER only. 



Make check or money order payable to 
Hooker Users Group. Send completed appli- 



cation to: 



HOOSIER USERS GROUP 
P.O. Box 2222 
Indianapolis, IN 46206-2222 



Check One: 






Active Member 


Name: 


Today's Date: 


New: $20 
Renewal: 15 


Address: 


Apt # 


Subscribing Member 






New: $10 


City: 


State: Zip: 


Renewal: 7.50 






Amount Enclosed: $ 


Phone: ( ^ 






Interests/Comments: 


» : n 





APPLICATION FOR MEMBERSHIP 



Below ^ you will find an application for 
membership to the Hoosier Users Group. Active 
membership entitles you to the Newsletter, up 
and download on the HUGbbs, attendance and 
voting rights at regular club meetings, access to 
the HUGger Library of Programs, special club 
activities and special guest speakers for one year. 
Subscribing members will receive the 
NEWSLETTER only. 



Make check or money order payable to 
Hooker Users Group. Send completed appli- 
cation to: 

HOOSIER USERS GROUP 
P.O. Box 2222 
Indianapolis, IN 46206-2222 



Check One: 






Active Member 


Name: 




Todav's Date: 


New: $20 






Renewal: IS 






Subscribing Member 


Address: 


Apt # 






New: $10 


Citv: 


State: 7.ip: 


Renewal: 7.50 






Amount Enclosed: $ 


Phone: C ") - 






Interests/Comments: 







